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ABSTRACT 


Geoffrion's  structured  modeling  provides  a  very  promising 
framework  for  the  development  of  future  model  management 
systems (MMS) .  This  thesis  presents  a  prototype  that  converts 
a  mathematical  representation  of  simple  LP  models  to 
Geoffrion's  structured  modeling  representations.  The  general 
procedures  presented  could  be  extended  to  convert  an  LP  model 
represented  in  any  precisely  defined  mathematical  language. 
This  would  allow  the  development  of  integrated  modeling 
environments  based  upon  the  structured  modeling  framework 
which  would  accept  input  in  a  number  of  common  LP  language 
formats . 
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I .  INTRODUCTION 


The  most  widely  accepted  framework  for  building  decision 
support  systems  (DSS)  suggests  three  major  components:  the 
dialogue  generation  and  management  software  which  controls  the 
DSS  -  user  interface,  the  data  base  management  software  (DBMS) 
and  the  model  management  system  software  (MMS) .  [Ref.  l:p. 
21] 

Significant  advances  have  been  made  in  improving  the 
dialogue  management  and  DBMS  components  of  DSS.  Color 
graphics,  windowing  systems,  pull  down  menus  and  simple  input 
devices  such  as  the  mouse,  provide  the  basic  tools  to  build 
a  user-friendly  interface.  The  implementation  of  relational 
database  theory  has  provided  a  number  of  powerful  and  flexible 
DBMS. 

The  third  component,  the  MMS,  is  the  area  where  the 
greatest  amount  of  work  remains  to  be  done.  Management 
science  and  operations  research  (MS/OR)  models  have  made 
significant  contributions  in  specific  applications.  However, 
these  models  have  been  largely  stand-alone,  costly  to  build, 
and  have  dealt  primarily  with  well  structured  problem 
domains . 

More  recent  modeling  systems  e.g.,  IFPS  [Ref  2]  have 
attempted  to  provide  a  more  general  tool  for  creating  models 


that  assist  the  decision  maker.  The  objective  of  these  new 
systems  is  to  increase  the  productivity  of  the  model  builder 
and  to  make  the  modeling  process  more  acceptable  to  the  non¬ 
technical  user.  Despite  these  improvements,  no  integrated 
modeling  environment  exists  today  that  can  meet  the  goals 
described  by  the  Sprague  and  Carlson  framework  [Ref.  3:p  260]. 

This  lack  of  progress  is  particularly  troubling  because 
the  modeling  component  is  the  very  heart  of  the  DSS,  As 
Sprague  declares: 

...it  is  the  integration  of  models  into  the  information 
system  that  moves  an  MIS  which  is  based  on  integrated 
reporting  and  data  base/  data  communication  into  a  full 
decision  support  system. [Ref .  l:p.  257] 

Managers  have  traditionally  been  reluctant  to  recognize 
the  value  of  MS/OR  models.  The  reasons  for  this  reluctance 
has  been  discussed  at  length  in  the  literature  [Ref. 
3:p.259;Ref.  4:p.  466;Ref.  5:p.  36, -Ref.  6:p.  704;Ref. 
7:p.548].  The  most  common  reason  given  for  managers'  lack  of 
acceptance  is  the  poor  model/user  interface  in  existing 
models.  Many  modeling  software  systems  present  the  manager 
with  unnecessary  detail,  are  too  technical  in  nature  and  are 
difficult  for  the  manager  to  understand. 

To  overcome  the  managers'  reluctance  a  MMS  needs  to 
combine  the  power  of  MS/OR  algorithms  for  solving  large, 
complex  models  with  a  flexible  user  interface  that  allows  the 
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model  and  the  results  of  the  modeling  process  to  be  presented 
in  a  comprehensible  manner  to  a  manager.  Geoffrion's 
structured  modeling  provides  a  formal  framework  for  describing 
models  which  aims  to  provide  the  foundation  for  such  a  system 
[Ref.  7]. 

In  this  thesis  we  will  construct  a  prototype  parser  which 
will  convert  mathematical  representations  of  simple  linear 
programming  (LP)  models  to  Geoffrion's  structured  modeling 
representations.  We  will  attempt  to  demonstrate  that  the 
algorithms  presented  here  can  be  extended  to  convert  any  LP 
modeling  language  to  a  structured  modeling  representation. 
This  would  allow  development  of  integrated  modeling 
environments  based  upon  the  foundation  of  structured  modeling 
which  could  accept  input  in  a  number  of  common  LP  language 
formats . 

This  work  is  organized  as  follows:  Sections  II  and  III 
provide  an  overview  of  model  management  and  structured 
modeling.  Section  IV  discusses  the  algorithms  for  automatic 
generation  of  structured  modeling  representations  from  the  LP 
language.  Section  V  will  present  the  implementation  of  the 
prototype  parser  and  Section  VI  will  present  the  limitations 
of  the  prototype  as  well  as  possible  extensions  for  future 
development . 
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II. 


MODEL  MANAGEMENT 


The  rapid  growth  in  the  number  of  personal  computers  in 
recent  years  has  fueled  an  interest  in  model-based  decision 
making.  The  introduction  of  spreadsheet  software  has  given 
the  non-technical  manager  a  user-friendly  vehicle  for  creating 
models.  These  spreadsheets  make  it  possible  for  the  manager 
to  create  models  for  a  wide  variety  of  applications,  (e.g., 
capital  budgeting,  human  resource  planning,  resource 
allocation  or  portfolio  selection) 

While  this  growth  in  the  number  of  models  can  have  a 
positive  effect  on  an  organization  it  also  creates  a  number 
of  managerial  problems.  When  important  decisions  are  based 
upon  models  it  is  imperative  that  the  models  are  valid, 
correctly  applied  and  based  upon  current  data.  Serious 
questions  exist  about  the  validity,  integrity  and  security  of 
the  spreadsheet  models  used  in  decision  making.  These 
problems  are  very  similar  to  the  problems  that  led  to  the 
realization  of  the  need  for  effective  data  management . [Ref 
5:p.  38] 

The  decentralized  nature  of  spreadsheet  modeling  makes 
control  very  difficult.  As  the  use  of  models  continues  to 
grow,  it  is  important  for  managers  to  realize  the  potential 
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threat  these  problems  pose  for  their  organization.  Managers 
must  begin  to  recognize  that  models,  like  data,  are  an 
organizational  resource  that  require  management. 

Model  management  systems  (MMS)  have  been  proposed  to  deal 
with  these  problems  associated  with  decentralized  modeling. 
An  MMS  performs  functions  for  models  analogous  to  those  that 
a  DBMS  performs  for  data.  An  MMS  contains  a  validated,  well- 
documented  model  base  accessible  by  all  authorized  users.  The 
MMS  must  provide  support  for: 

1.  A  consistent  method  for  generating  and  updating 
models. [Ref  l:p.  262] 

2.  A  flexible  method  for  communicating  modeling  results  in 
a  manner  suitable  for  technical  and  non-technical 
users. [Ref  7:p.  549] 

3.  Integration  of  models  with  the  existing  data. 

4.  Integration  with  advanced  solver  techniques. 

5.  A  control  mechanism,  for  ensuring  the  security  and 
integrity  of  models  in  the  model  base. [Ref  6] 

The  central  MMS  design  issue  is  the  method  for 
representation  and  storage  of  the  models  in  the  model  base. 
The  model  representation  must  be  flexible  enough  to  support 
the  needs  of  all  the  users  of  the  system.  This  requires  a 
model  representation  that  allows  "views"  of  the  model  at 
different  levels  of  complexity,  including  a  analytical  view 


5 


for  the  technical  model  builder  and  a  natural  language  view 
for  communication  with  the  non-technical  user  of  the  MMS  [Ref. 
7:p.  549]. 

There  have  been  a  number  of  methods  suggested  for 
representing  and  storing  the  models  in  the  model  base. [Ref  1: 
p.  268]  The  traditional  method  is  to  represent  models  as 
subroutines  in  a  high  level  language.  In  this  approach  the 
model  base  consists  of  a  library  of  subroutines  that  is 
accessed  by  a  subroutine  call. 

This  is  the  "black  box"  method  of  modeling  that  nas  made 
managers  reluctant  to  use  models  for  decision  making.  The 
interaction  between  the  model  and  the  user  is  very  limited. 
The  user  supplies  the  data  and  the  model  produces  "the 
result".  There  is  no  feature  for  explaining  the  models  or  the 
assumptions  upon  which  they  are  based. 

A  related  approach  represents  models  as  statements  in  a 
modeling  language  such  as  GAMS. [Ref  8]  In  this  approach  the 
user  defines  the  models  in  an  algebraic  language.  The  models 
are  solved  through  the  use  of  a  common  optimizer.  This 
approach  allows  the  user  to  focus  on  the  modeling  process 
rather  than  on  developing  the  solver  algorithm.  Despite  this 
improvement,  tne  models-as-statements  approach  is  limited  in 
its  ability  to  interact  with  the  users.  There  is  no  feature 
for  ad  hoc  queries  of  the  model  base.  The  algebraic 
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representation  of  the  model  is  an  improvement  over  the  model- 
as-subroutines  approach  but  is  still  inadequate  for 
communication  purposes. 

The  most  promising  approach  represents  models  as  data. [Ref 
9:p.  36]  This  approach  uses  existing  DBMS  technology  to  store 
and  access  models,  simplifying  the  integration  of  models  and 
data  and  allowing  flexible  queries  of  the  model  base  to  aid 
the  user  throughout  the  modeling  process. 

Geoffrion's  structured  modeling  offers  a  promising 
theoretical  framework  for  implementation  of  a  model  management 
system.  The  structured  modeling  representation  provides 
support  for  multiple  views  of  models  and  graphical 
representations  of  models  to  enhance  communication  and  improve 
acceptance  of  modeling  by  non-technical  users. 

Our  prototype  will  use  the  models-as-data  approach  to 
store  Geoffrion's  structured  modeling  representation. 
Structured  modeling  is  described  in  the  next  section. 
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III.  STRUCTURED  MODELING 


Structured  modeling,  developed  by  Geoffrion[Ref .  7],  is  a 
very  general  approach  to  modeling.  Its  goal  is  to  foster 
development  of  a  new  generation  of  modeling  systems  with  the 
following  features  [Ref.  7:p.  549]: 

1.  A  conceptual  framework  for  modeling  based  upon  a  single 
model  representation  format  suitable  for  managerial 
communication,  mathematical  use  and  direct  computer 
execution . 

2 .  Independence  of  model  representation  and  model  solution 

3.  Sufficient  generality  to  encompass  most  of  the  modeling 
paradigms  that  MS/OR  and  kindred  model-based  fields  have 
developed. 

4.  Support  for  the  entire  modeling  life  cycle. 

5.  Integrated  facilities  for  data  management  and  ad  hoc 
queries . 

6.  Desktop  implementation  with  a  modern  user's 
interface , including  immediate  expression  evaluation  as 
in  spreadsheet  software. 

Our  prototype  will  convert  mathematical  representations  of 
LP  models  to  Geoffrion's  structured  modeling  representations. 
Here  we  provide  the  basics  of  structured  modeling  that  are 
relevant  to  our  prototype  and  discuss  the  features  of 
structured  modeling  that  make  it  attractive  as  a  basis  for  MMS 
development . 

We  will  provide  an  example  of  how  a  LP  model  is 
represented  in  structured  modeling.  The  example  model  we  have 
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chosen  is  the  same  classic  transportation  problem  used  by 
Geoffrion  [Ref.  7:  p.  570].  This  model  describes  plants  which 
manufacture  a  product  that  must  be  shipped  to  customers. 
There  are  production  constraints  for  each  plant  and  demand 
constraints  for  each  customer.  The  objective  is  to  minimize 
the  total  cost  of  shipping  the  product  within  the  constraints 
given. 

We  will  also  use  this  example  in  Section  V,  which  will 
allow  the  reader  to  compare  the  representation  here  to  the 
one  generated  by  our  prototype.  This  informal  approach 
provides  only  those  elements  of  structured  modeling  necessary 
to  understand  the  prototype  implementation.  For  a  more 
complete  coverage  of  the  subject  see  Geoffrion  [Ref.  7]. 

A.  PRINCIPLES  OF  STRUCTURED  MODELING 

A  structured  model  is  composed  of  elements.  These 
elements  are  either  primitive  or  else  defined  in  terms  of 
their  relationship  to  the  other  elements.  There  are  six  types 
of  elements: 

1.  Primitive  entity  elements  (pe)  have  no  value  and  usually 
represent  things  or  concepts  in  the  model  (e.g.,  a  plant 
in  the  transportation  problem) . 

2.  Compound  entity  elements  (ce)  have  no  value  and  usually 
represent  concepts  that  are  defined  in  terms  of  other 
things  or  concepts,  (e.g.,  a  plant-customer  link  in  the 
transportation  problem  defined  in  terms  of  a  certain 
plant  and  a  certain  customer) . 
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3.  Attribute  elements  (a)  have  a  constant  value  and 
represent  a  property  of  a  thing  or  concept  (e.g.,  the 
supply  capacity  of  a  particular  plant  in  the 
transportation  problem) . 

4.  Variable  attribute  elements  (va)  are  like  attribute 
elements  but  their  value  is  discretionary  and  likely  to 
change,  (e.g.,  the  flow  of  goods  over  a  particular 
plant-customer  link  in  the  transportation  problem) . 

5.  Function  elements  (f)  have  a  value  that  is  derived  by  a 
specific  equation  or  rule  (e.g.,  the  total  cost 
associated  with  all  flows  in  a  transportation  problem) . 

6.  Test  elements  (t)  are  like  function  elements  except  that 
their  value  must  be  either  true  or  false,  (e.g.,  whether 
the  demand  requirement  is  met  for  a  particular  customer 
in  the  transportation  problem) . 

The  structured  modeling  framework  consists  of  three 
levels:  elemental  structure,  generic  structure,  and  modular 

structure . 

The  elemental  structure  is  the  most  basic  level  of  the 
model.  It  provides  the  details  of  a  specific  instance  of  the 
model.  Geoffrion  defines  the  elemental  structure  in  terms  of 
a  directed  acyclic  attribute  graph  of  elements  (nodes)  and 
calls^  (directed  arcs)  .  In  all  but  the  simplest  of  model 
instances  the  elemental  graph  will  contain  many  arcs  and 
nodes.  In  general  this  graph  is  too  cluttered  to  be  useful. 

The  generic  structure  is  a  generalization  of  the  elemental 
structure.  This  structure  captures  the  natural  familial 
groupings  of  elements.  Similar  elements  are  grouped  such  that 
every  element  in  a  genus  calls  the  same  genera  and  is  called 


’a  "call"  represents  the  participation  of  the  called  element 
in  the  definition  of  the  calling  element.  The  head  node  is  the 
calling  element  and  the  tail  node  is  the  called  element. 
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called  by  the  same  genera.  This  property  is  called  generic 
similarity.  [Ref.  7:p.  553] 

The  generic  structure  can  also  be  represented  by  a 
directed  acyclic  attribute  graph  called  a  genus  graph.  Figure 
1  is  an  example  genus  graph  for  the  transportation  problem. 

The  genus  graph  is  an  example  of  the  communication  value 
of  the  structured  modeling  representations.  The  genus  graph 
is  dimension  independent  [Ref  7:p.  556]  thus  providing  an 
insight  into  how  the  model  works  without  the  unnecessary 
details  of  the  elemental  structure. 

The  modular  structure  groups  elements  into  conceptual 
units  called  modules.  For  example,  in  the  transportation 
problem,  the  customer  genus  and  the  demand  genus  could  be 
grouped  into  a  "customer  data"  module.  These  modules  allow 
the  model  to  be  viewed  at  different  levels  of  complexity.  The 
modular  structure  can  be  represented  graphically  as  a  rooted 
tree.  The  root  represents  the  entire  model  and  each  terminal 
node  is  a  genus.  Only  certain  modular  structures  are  allowed. 
Valid  structures  can  be  represented  by  an  indented  list  that 
contains  no  forward  references.  This  indented  list  is  called 
the  modular  outline. 

In  addition  to  the  graph  based  representations  of  models, 
Geoffrion  has  proposed  a  structured  modeling  language  (SML) 
for  representing  schemas  to  reflect  the  generic  and  modular 
structure  of  models. [Ref.  10]  Figure  2  is  an  example  of  the 
schema  for  the  transportation  problem. 
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Figure  1:  Genus  Graph  for  the  Transportation  Problem 
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SSDATA  SOURCE  DATA 

PLAMTl  /pe/  There  is  a  list  of  PLANTS . 

8UP(PLANTi)  /a/  (PLANT) :R+  Every  PLANT  has  a  SUPPLY 
capacity  measured  in  tons. 

SCDATA  CUSTOMER  DATA 

CUSTj  /pe/  There  is  a  list  of  CUSTOMERS . 

DEM ( GUST j)  /a/  (CUST)  :R+  Every  CUSTOMER  has  a 
nonnegative  DEMAND  measured  in  tons. 

&TDATA  TRANSPORTATION  DATA 

LINK (PLANTi, CUSTj)  /ce/  Select  { PLANT }X{ CUST) 
where  i  covers  { PLANT },j  covers  (CUST)  There  are  some 
transportation  LINKS  from  PLANT  to  CUSTOMERS.  There 
must  be  at  least  one  LINK  incident  to  each  PLANT,  and 
at  least  one  LINK  incident  to  each  CUSTOMER. 

FliOW{LINKi j )  /va/  (LINK)  :R+  There  can  be  a  non¬ 
negative  transportation  FLOW  (in  tons)  over  each  link. 

COST(LINKij)  /a/  (LINK)  :R  Every  LINK  has  a 
TRANSPORTATION  COST  RATE  for  use  in  $/ton. 

$(COSTij,FIjOWij)  /f/ ;SUMiSUMj  (COSTij  *FLOWij  )  There  is  a 
TOTAL  COST  associated  with  all  flows. 

T;SUP(FLOWij ,SUPi)  /t/  (PLANT)  ; SUMj { FLOWi j )  <=  SUPi  Is 
the  total  FLOW  leaving  the  PLANT  less  than  or  equal  to 
its  SUPPLY  CAPACITY?  This  is  called  the  SUPPLY  TEST. 

T : DEM ( FLOWi j , DEM j)  /t/  (CUST)  ;SUMi (FLOWi j )  =  DEMj  Is 
the  total  FLOW  arriving  at  a  CUSTOMER  exactly  equal  to 
its  DEMAND?  This  is  called  the  DEMAND  TEST. 


Figure  2:  Schema  for  the  Transportation  Model [Ref.  7;p.  570] 
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This  SML-based  schema  defines  the  entire  model  structure 
independent  of  the  elemental  detail  and  is  precisely  defined 
to  allow  direct  computer  execution  [Ref.  7:p.  562],  [Ref.  10]. 
We  will  only  provide  an  overview  of  the  schema  syntax  here. 

The  schema  is  composed  of  two  kinds  of  paragraphs:  module 
paragraphs  and  genus  paragraphs.  The  paragraphs  are  indented 
and  organized  in  the  same  monotone  order  as  the  modular 
outline.  Each  paragraph  consists  of  a  formal  part  followed 
by  an  optional  informal  text  interpretation  part. 

A  module  paragraph  consists  of  the  mnemonic  module  name, 
preceded  by  an  ampersand  (&)  and  an  optional  interpretation. 
Geoffrion  argues  strongly  that  the  interpretation  is  a 
critical  part  of  the  modeling  process. 

The  genus  paragraph  syntax  will  vary  by  element  type. 
Figure  3  gives  the  general  syntax  for  a  genus  paragraph. 
Optional  items  are  enclosed  in  brackets. 


GNAME  [new  index] [ (generic  calling  sequence)] 
/type/  [index  set  statement ][: range  statement] 
[ ;generic  rule  statement]  [interpretation]. 


Figure  3:  General  Syntax  for  a  Genus  Paragraph 

GNAME  is  the  mnemonic  genus  name.  The  genus  name  is 
followed  by  an  index  for  those  genera  that  are  self-indexed. 


14 


/type/  is  the  genus  type  declaration  and  must  correspond  to 
one  of  the  six  element  types  defined  in  structured  modeling. 
The  index  set  statement  defines  the  permissible  population  of 
the  genus.  The  range  statement  defines  the  permissible  values 
for  an  attribute  or  variable  attribute  genus.  The  generic 
rule  defines  the  rule  by  which  the  values  of  a  function  or 
test  genus  are  derived. 

The  structured  modeling  framework  has  much  to  offer  as  a 
foundation  for  future  model  management  systems.  In  a  single 
model  representation  it  provides  a  computer  executable  model 
definition  and  a  flexible  communication  device. 

Our  prototype  will  focus  on  the  genus  graph  and  the  text 
based  schema  representations  of  structured  modeling.  We  will 
demonstrate  how  the  structure  of  a  LP  model  determines  its 
structured  modeling  representation.  The  next  section  presents 
the  theory  upon  which  our  conversion  algorithm  is  based. 
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IV.  GENERATION  OF  GRAPHS  FROM  LINEAR  PROGRAMMING  MODELS 


A  linear  program  (LP)  typically  deals  with  the  problem  of 
allocating  limited  resources,  subject  to  a  set  of  constraints, 
in  a  way  that  maximizes  return  or  minimizes  cost. [Ref  ll:p. 
156] 

This  section  will  describe  our  method  of  converting 
mathematical  representations  of  simple^  LP  models  to 
structured  model  representations.  This  algorithm  is  based 
upon  the  relationship  between  LP  model  components  and 
structured  model  genus  types  identified  by  Geoffrion  and 
further  amplified  by  Dolk. [Ref  12] 

Figure  4  is  a  the  standard  form  of  the  LP  model  using  our 
mathematical  notation.  The  following  conventions  are  used: 

1.  Summations  are  identified  by  the  token  §SUM.  The 

expression  following  the  summation  will  be  enclosed  in 
parenthesis,  (e.g.,  @SUMi(Xi)  or  @SUMiSUMj (Xi j )  ) 

2.  All  variables  and  coefficients  are  in  uppercase. 

3.  All  indices  are  in  lower  case. 

Appendix  A  contains  a  precise  definition  of  our 
notation.  This  mathematical  notation  is  a  su.  't  of  the 
generic  rule  grammar  defined  by  Geffrion. [Ref  10:p.  A4-1] 


^Simple  in  this  context  means  that  there  are  no  indices  that 
depend  upon  other  indices  and  that  all  indices  range  over  their 
full  set  of  values. 
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maximize : 

(0) 

2  =  @SUMj (Cj  *  Xj) 

subject  to: 

(1) 

§SUMj (Aij  *  Xj)  <=  Bi 

(2) 

Xj  >=  0 

Figure  4 :  Standard  mathematical  form  of  LP  modal 


This  model  consists  of  an  objective  function  (equation 
(0)),  a  set  of  constraints  (equations  (1)  and  (2)), 
coefficients  (C  and  A), right  hand  sides  (0  and  B) ,  decision 
variables  (X),  and  indices  (i  and  j). 

Dolk  has  identified  the  following  relationships  between 
the  components  of  an  LP  model  and  structured  modeling  genus 
types  [Ref  12 :p.  3 ] : 

1.  Each  index  is  a  primitive  entity. 

2.  The  objective  function  is  a  function  genus. 

3.  Each  constraint  corresponds  to  a  test  genus. 

4.  Coefficients  are  attributes  associated  with  the 
primitive  entity  or  compound  entity  that  corresponds  to 
its  index. 

5.  Right  hand  sides  are  attributes. 

6.  Decision  variables  are  variable  attributes. 

7.  For  components  with  multiple  indices  (e.g.,  Aij)  the 
multiple  indices  correspond  to  a  compound  entity. 

The  next  requirement  is  to  define  the  calling  sequence 
which  determines  the  genus  graph  structure.  Dolk  provides  the 
following  propositions  [Ref  12:p.  3]: 
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1.  Every  test  genus  is  a  leaf  node^  in  the  genus  graph. 

2.  The  objective  function  of  the  mathematical  model  is  a 
leaf  node  in  the  genus  graph. 

3.  Each  index  in  the  mathematical  model  is  a  root  node.'* 

4.  The  function  and  test  genera  will  have  only  attributes 
or  variable  attributes  in  their  calling  sequences. 

5.  All  variable  attributes  will  appear  in  at  least  one  test 
genus'  calling  sequence  and  the  objective  function 
genus . 

6.  Any  component  with  multiple  indices  will  have  several 
primitive  entities  in  its  calling  sequence,  one  for  each 
index . 

From  these  propositions  we  can  identify  each  genus,  its 
genus  type,  and  its  calling  sequence.  Further,  each  equation 
represents  the  generic  rule  for  the  corresponding  test  or 
function  genus. 

With  this  information  we  can  construct  the  genus  graph 
from  a  mathematical  representation  of  a  model.  Figure  5  is 
an  example  genus  graph  constructed  for  the  standard  form  of 
the  LP  model.  This  graph,  while  accurate,  is  not  particularly 
enlightening  without  meaningful  mnemonic  names  to  identify 
each  genus  node.  Our  parser,  described  in  detail  in  the  next 
section,  will  allow  the  user  to  add  mnemonic  names. 


^A  leaf  node  appears  in  no  other  genus'  calling  sequence, 
the  graph  it  will  have  no  outgoing  arcs. 

^A  root  node  has  no  calling  sequence, 
incoming  arcs  in  the  graph. 


In 


It  will  have  no 


Figure  5;  Genus  Graph  for  the  Standard  Form  of  the  LP  model 


We  cannot  determine  the  generic  range  of  attribute  genera, 
the  index  set  statement,  or  the  natural  language 
interpretation  from  the  mathematical  model.  However,  we  can 
cons^-ruct  an  approximation  of  the  text  based  schema. 

Our  prototype  will  parse  each  equation  and  create  a  symbol 
table  for  the  model.  We  then  apply  the  relationships  and 
propositions  described  here  to  construct  the  structured 
modeling  representations  from  the  symbol  table.  The  next 
section  will  provide  the  implementation  details  of  the 
prototype  and  provide  an  example  conversion  of  the 
transportation  model. 
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V. 


IMPLEMENTATION  OF  THE  PROTOTYPE 


Our  prototype,  LP/SM,  was  designed  to  allow  the  user  to 
enter  a  mathematical  description  of  a  simple  LP  model,  convert 
it  to  a  corresponding  structured  modeling  representation, 
adding  mnemonic  names  if  desired,  and  then  display  this  model 
graphically  as  a  structured  modeling  genus  graph  or  as  an 
SML-based  schema.  An  edit  feature  allows  the  user  to  enter 
the  natural  language  interpretation,  the  generic  range  and  the 
index  set  statement  which  cannot  be  automatically  generated 
by  LP/SM,  Here  we  describe  the  LP/SM  implementation  and 
provide  an  example  conversion  of  the  transportation  problem. 
A.  HARDWARE  USED  IN  THIS  IMPLEMENTATION 

LP/SM  was  designed  on  an  IBM  PS/2  model  80  running  the 
MS-DOS  operating  system.  We  found  this  to  be  an  excellent 
environment  for  development.  The  80386  CPU,  provides  rapid 
response  and  sufficient  computing  power  for  expansion  of  the 
prototype.  The  Video  Graphics  Array  (VGA)  graphics  capability 
of  the  PS/2  ensures  compatibility  with  all  current  PC  graphics 
standards.  The  extended  memory  of  the  PS/2  makes  it  possible 
to  implement  applications  that  are  memory  intensive^  (e.g., 
graphics) . 


^Our  prototype  requires  at  least  1.5  MB  of  memory  to  support 
the  ORACLE  RBDMS . 
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LP/SM  was  designed  to  ensure  portability  to  the  IBM  PC  AT 
environment.  This  required  using  Enhanced  Graphics  Array 
(EGA)  graphics  for  display  of  the  genus  graph  reducing  the 
screen  resolution  to  640  pixels  horizontally  by  350  pixels 
vertically  (640x350) .  While  this  resolution  is  limiting  and 
makes  some  of  the  genus  graph  arcs  appear  jagged,  it  was 
sufficient  for  our  prototype  implementation.  Our 

recommendations  for  future  graphics  enhancements  are  discussed 
in  Section  VI. 

B.  SOFTWARE  USED  IN  THIS  IMPLEMENTATION 

The  parser  for  our  prototype  was  generated  using 
automatic  program  generators.  The  program  generators  we  chose 
were  LEX:  A  Lexical  Analyzer  Generator  [Ref.  13]  and  YACC:  Yet 
Another  Compiler  Compiler  [Ref.  14].  We  chose  this  approach 
for  a  number  of  reasons: 

1.  The  resulting  product  is  produced  more  quickly. 

2.  The  resulting  product  is  flexible  and  adaptable.  YACC 
will  "read"  any  input  that  can  be  can  be  defined  in  its 
specification  language.  This  specification  language 
closely  resembles  BNF  notation.® 

LEX  and  YACC  were  designed  to  work  together  to  build  a 
parser  for  processing  the  input  to  a  computer  program.  The 
user  provides  LEX  and  YACC  with  a  high-level  description  of 

®YACC  will  accept  a  very  general  class  of  grammars  -  laALR(l) 
with  disambiguity  rules. [Ref  15:p.  1] 
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the  input  language  and  these  tools  generate  the  source  code 
for  a  parser  which  is  capable  of  recognizing  legal  constructs 
of  the  defined  language.  LEX  and  YACC  were  written  for  the 
UNIX  operating  system,  however  their  output  is  C  source  code 
which  can  be  ported  to  the  MS-DOS  environment. 

The  remainder  of  the  prototype  was  written  in  Microsoft 
C.  We  found  Microsoft  C  had  a  number  of  advantages  for  our 
prototype  implementation: 

1.  Complete  MS-DOS  function  library  and  ANSI  standard 
library  functions  to  ensure  compatibility  with  the  code 
generated  by  LEX  and  YACC. 

2.  Complete  Graphics  function  library. 

3.  Compatibility  with  the  code  generated  by  the  ORACLE 
precompiler. 

4.  Helpful  programmer  support  tools  including  the  make 
facility  for  managing  maintenance  of  source  code  and  a 
powerful  source  level  debugger. 

Our  prototype  uses  the  ORACLE  relational  database 
management  system  (RDBMS)  to  store  the  structured  models. 
ORACLE  was  chosen  because  it  fully  supports  the  ANSI  standard 
SQL  data  manipulation  language  and  contains  a  high-level 
programming  language  interface. 

SQL  provides  powerful  data  manipulation  functions  allowing 
for  flexible  queries  of  our  model  base  and  eventual 
integration  of  models  with  their  corresponding  data  tables. 
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ORACLE ' s  C  language  interface  extends  the  data 
manipulation  functions  of  SQL  by  allowing  the  use  of 
procedural  programming  language  constructs  (e.g.,  IF-THEN  ELSE 
statements) . 

C.  DESIGN  OVERVIEW 

LP/SM  consists  of  a  number  of  separate  modules  that 
correspond  to  the  functions  displayed  on  the  main  menu.  This 
modular  approach  will  simplify  future  enhancements  to  the 
prototype . 

Listed  below  are  the  options  that  appear  on  the  main  menu 
when  the  program  is  run: 

1.  Enter  Model 

2 .  Edit  Model  Schema 

3.  Display  Model  Graph 

4.  Display  Model  Schema 

5.  Quit 

This  menu  was  designed  to  function  with  a  multiple-model 
model  base,  however  since  our  prototype  only  allows  a  single 
model  the  user  must  initially  select  the  "Enter  Model"  option. 
Any  other  selection  will  result  in  a  pop-up  window  containing 
an  error  message. 

When  the  "Enter  model"  option  is  selected  the  prototype 
performs  the  following  functions  (See  Figure  6) : 

1.  Parses  each  equation  of  the  mathematical  representation 
of  the  model  to  ensure  the  syntax  is  correct.  When  a 
valid  equation  is  recognized  the  equation  tokens  are 
entered  into  the  parser's  symbol  table. 
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2.  Translates  each  element  in  the  parser's  symbol  table 
entries  to  the  corresponding  structured  modeling 
elements  using  the  relationships  and  propositions 
described  in  Section  IV. 

3.  Accepts  the  user  defined  mnemonic  names  corresponding 
to  each  structured  modeling  element  found  in  the 
translation  of  the  symbol  table. 

4.  Substitutes  user  mnemonic  names  for  each  element,  builds 
the  mnemonic  calling  sequence  for  each  of  the 
non-primitive  elements  and  constructs  the  mnemonic 
generic  rule  for  each  of  the  test  and  function  elements. 

5.  Builds  a  simple  modular  outline  where  each  element  is 
a  module  of  the  model  with  no  sub-modules.  The  monotone 
order  is  determined  by  a  simple  topological  sort  of  the 
generic  structure  calls.  This  topological  sort  is 
modified  to  place  the  attributes  that  call  primitive 
entities  immediately  following  the  primitive  entity  in 
the  modular  outline.  This  is  done  to  improve  the 
appearance  of  the  model  schema. 

6.  Writes  the  structured  modeling  description  of  the  LP 
model  to  the  ORACLE  database. 

The  following  sections  describe  the  implementation  of  each 
of  the  main  menu  functions. 

1.  Parser  Implementation 

The  first  step  in  constructing  a  parser  is  to  define 
the  language  to  be  parsed.  To  define  any  input  language  we 
must  clearly  specify  the  basic  symbols  allowed  (tokens)  in  the 
language  and  the  define  rules  for  combining  these  symbols  into 
legal  constructs  (non-terminal  symbols)  in  the  language. 
These  tokens  and  the  rules  for  combining  them  comprise  the 
grammar  for  the  input  language. 

The  final  element  of  language  definition  is  the 
semantics  of  the  language.  Semantic  rules  determine  if  a 
language  construct  that  meets  the  syntax  requirements  is 
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meaningful.  For  example  if  the  syntax  requires  that  an  index 
follow  the  §SUM  token,  the  semantic  rules  would  determine  if 
the  index  used  after  the  @SUM  token  is  correct  in  the  context 
of  the  entire  equation.  Semantic  rules  are  much  more 
difficult  to  define.  Our  prototype  parser  deals  solely  with 
the  syntax  of  the  language.  This  limitation  is  discussed 
further  in  Section  VI. 

Use  of  the  program  generators  requires  defining  the 
input  language  in  two  steps.  The  input  to  LEX  defines  the 
regular  expressions  that  represent  legal  tokens  of  the 
language  and  actions  to  take  when  a  token  is  found  [Ref  13 ;p. 
1].  The  input  to  YACC  defines  the  rules  by  which  these  tokens 
can  be  combined  to  form  legal  constructs  of  the  language  and 
the  actions  to  take  when  a  legal  construct  is  recognized  [Ref 
14 :p.  1].  Appendix  B  contains  our  input  to  LEX  and  YACC. 

LEX  produces  a  lexical  scanner  which  reads  from  the 
input  character  stream  and  breaks  it  into  legal  tokens  of  the 
language.  These  tokens  are  passed  to  the  parser  created  by 
YACC  until  a  legal  language  construct  is  found  or  a  syntax 
error  occurs . 

When  the  "Enter  Model"  option  is  selected,  the  user 
will  be  prompted  to  enter  the  model  name.  The  user  will  then 
be  prompted  to  enter  the  objective  function.  Each  equation 
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will  be  parsed  as  it  is  entered.  If  a  syntax  error  occurs  an 
error  message  will  appear  and  the  user  must  reenter  the 
objective  function. 

The  cursor  keys  combined  with  the  insert  and  delete 
keys  provide  a  simple  edit  feature  to  assist  the  user  in 
correcting  the  syntax  error. 

When  an  equation  is  correctly  entered  the  user  will 
be  prompted  for  the  next  equation.  This  process  is  repeated 
for  all  the  equations  in  the  model.  To  complete  the  model 
definition  the  user  must  enter  the  token  END  when  prompted  for 
the  next  equation.  Figure  7  is  a  description  of  the 
transportation  model  in  our  mathematical  language.  This  is 
the  form  that  would  be  entered  in  LP/SM. 


Figure  7:  Mathematical  Language  Description 
of  the  Transportation  Problem 


After  the  END  token  is  entered,  the  user  will  be 
allowed  to  enter  meaningful  mnemonic  names  for  the  model 
elements.  The  user  must  identify  which  element  is  the 
decision  variable.  This  allows  us  to  identify  which  of  the 
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attribute  elements  are  variable  attributes.  Figure  8  is  a 
chart  showing  the  mnemonic  names  describing  the  transportation 
model .  After  the  last  mnemonic  name  is  entered  the  model 
description  is  completed,  written  to  the  ORACLE  tables  and 
the  main  menu  is  redisplayed. 


GENUS  NAME 

GENUS  TYPE 

MNEMONIC  NAME 

M  TRANS 

model 

M  TRANS 

EQNO 

f 

TOTAL 

EQNl 

t 

T:SUP 

EQN2 

t 

T:DEM 

EQN3 

t 

NON  NEG 

ij 

ce 

LINK 

i 

pe 

PLANT 

j 

pe 

CUST 

C 

a 

COST 

X 

va 

FLOW 

S 

a 

SUP 

D 

a 

DEM 

Figure  8:  Mnemonic  Description  of 
the  Transportation  Problem 


2.  Storage  of  the  Models  in  the  Model  Base 

The  structured  model  is  represented  in  two  ORACLE 
tables:  RELSHIP  and  ENTITY.  This  structure  was  developed  by 

Dolk  [Ref.  6:p.  710]  to  represent  a  structured  model  as  part 
of  an  information  resource  dictionary  system  (IRDS) .  This 
representation  offers  a  number  of  advantages  [Ref  6:  p.718]: 

1.  Model  integrity  consistent  with  structured  modeling 
principles  can  be  checked  automatically  with  a  single 
DBMS  query  command. 
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2 .  A  wide  variety  of  queries  is  available  for  both  pre- 
and  post-solution  model  analysis  using  DBMS  query 
commands • 

3.  Modeling  and  data  resources  are  consolidate  in  a  single, 
shared  environment. 

4 .  The  IRDS  can  be  activated  to  interface  with  external 
processes  such  as  optimization  algorithms  to  support 
model  manipulation  and  eventually  serve  as  the 
foundation  for  a  fully  functional  model  management 
system. 

Figure  9  lists  the  SQL  commands  that  create  the  tables 
and  views  representing  a  structured  model  in  the  model  base. 
The  CALLS  view  represents  the  model's  generic  structure.  The 
CONTAINZ  view  represents  the  model's  modular  structure.  An 
additional  view  is  created  for  each  of  the  element  types  to 
support  queries  concerning  the  model  structure. 

In  the  ENTITY  table  ename  is  the  mnemonic  name  of  the 
model  element,  etype  is  the  element  type  and  must  correspond 
to  one  of  the  six  structured  modeling  element  types  (pe,  ce, 
a,  va,  t,  f ) .  dname  is  the  descriptive  name  for  the  genus. 
The  date_added,  last_mod  and  nmods  fields  are  used  for  control 
purposes  to  record  the  date  the  model  element  was  added  or 
modified  and  the  number  of  modifications  that  have  been  made 
to  the  model  element.  The  idx,  idx_stint,  grange,  and  grule 
fields  are  used  to  store  the  elements  index,  index  statement, 
generic  range  statement,  and  generic  rule.  The  comments  field 
corresponds  to  the  structured  modeling  natural  language 
interpretation . 


create  table 

entity 

(ename 

char (20)  NOT  NULL, 

etype 

char (12)  NOT  NULL, 

dname 

char (30) , 

date  added 

date. 

last  mod 

date. 

nmods 

number (5) , 

idx 

char (4) , 

idx  stmt 

char (100) , 

grange 

char (20) , 

grule 

char(lOO)  , 

comments 

char (100)  ) ; 

create  table 

relship 

(rtype 

char (10)  NOT  NULL, 

elname 

char (20)  NOT  NULL, 

el type 

char (12)  NOT  NULL, 

e2name 

char (20)  NOT  NULL, 

e 2 type 

char (12)  NOT  NULL, 

rel_pos 

number ( 2 ) ) ; 

create  view  calls  as 

select  elname 

, eltype , e2name , e2 type 

from  relship 

where  rtype  = 

•  CALLS • ; 

create  view  containz  as 

select  elname 

, eltype, e2name,e2 type, rel  pos 

from  relship 

where  rtype  = 

' CONTAINS ' ; 

Figure  9:  SQL  commands  for  Model  representation 
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In  the  RELSHIP  table  the  rtype  is  "CALLS"  for  rows 
representing  calls  in  the  generic  structure  or  "CONTAINS"  for 
rows  representing  module  containment.  elneune  and  eltype 
contain  the  name  and  type  of  the  calling  element  in  the 
generic  structure  or  the  module  name  in  the  modular  structure. 
e2name  and  e2type  contain  the  name  and  type  of  the  called 
element  in  the  generic  structure  or  the  name  and  type  of  the 
element  that  is  contained  within  the  module.  rel_pos  is  an 
number  representing  the  order  of  the  element  in  the  modular 
outline . 

Figure  10  shows  the  tables  that  are  created  for  the 
transportation  model.  The  prototype  creates  a  simple  modular 
outline.  The  module  name  is  preceded  by  "M_"  rather  than  the 
ampersand  suggested  by  Geoffrion  because  the  ampersand  is  a 
reserved  symbol  with  special  meaning  in  ORACLE. 

3.  Display  of  the  Model  Schema 

When  the  "Display  Model  Schema"  option  is  selected  on 
the  main  menu,  LP/SM  reads  the  ENTITY  table  from  the  model 
base.  This  is  accomplished  by  the  use  of  the  SQL  command  in 
Figure  11.  This  command  ensures  the  schema  is  displayed  in 
monotone  order. 

Figure  12  is  an  example  of  the  schema  created  for  the 
transportation  model.  This  is  our  initial  approximation  of 
the  SML-based  schema.  It  does  not  contain  the  generic 


32 


structured  Modeling  Elements 

ENTITY  ( ename ,  etype . idx ,  idx_stnit ,  grange , 

comments , grule) 


(M  TRANS 

, model ,  .  . 

II  II  tl  II  II  It 
*  t  9  9 

II  II 

II  II  ^ 

(TOTAL 

\\  II  It  II  II  It 
•  /  9  9 

II  II 

§SUMiSUMj  (COSTij*FLOWij) 

(T:SUP 

,t  ,  .  . 

\\  II  II  If  II  II 
•  /  9  9 

11  II 

esUMj (FLOWij)  <=  SUPi) 

(T: DEM 

,t 

\\  II  II  It  II  It 
*9  9  9 

tl  II 

0SUMi(FLOWij)  =  DEM j ) 

(NON  NEC 

,t 

\\  II  II  II  II  II 
•  1  9  9 

II  II 

FLOWij  >=  0) 

(LINK 

,ce 

W  II  II  II  II  II 
•  /  9  9 

II  II 

II II  ^ 

(PLANT 

,  pe 

\  II  II  II  II 

II  II 

II  It  ^ 

(COST 

,pe 

A  II  II  II  II 

•  /  J  /  9 

II  II 

II II  ^ 

(COST 

,a 

\\  It  II  II  II  II 
•  /  /  9 

II  II 

II 11  ^ 

(FLOW 

,va 

W  11  II  It  II  II 
•  /  9  9 

M  II 

II II  ^ 

(SUP 

,a 

\\  II  II  II  II  II 
•  /  9  9  9 

II II 

It  II  ^ 

(DEM 

,a 

II  II  II  II  II  II 
•  /  9  9  9 

•1  II 

II 11  ^ 

Generic  Structure 

CALLS (elname , el type , e2name, e2type) 


(COST 

,a 

,  LINK 

,  ce 

) 

(LINK 

, ce , plant! 

,pe 

) 

(LINK 

,ce 

, OUST j 

,pe 

) 

(TOTAL 

,  COST 

,a 

) 

(FLOW 

/  va 

,  LINK 

,  ce 

) 

(TOTAL 

,  LINK 

,ce 

) 

(T:SUP 

,  FLOW 

,va 

) 

(SUP 

, PLANT i 

,pe 

) 

(T:SUP 

/ 1 

,SUP 

,a 

) 

(T:DEM 

,FLOW 

,va 

) 

(DEM 

,a 

,CUSTj 

,a 

) 

(T:DEM 

,  t 

,  DEM 

,a 

) 

(NON  NEC 

,t 

,  FLOW 

,va 

) 

Modular  Structure 

CONTAINZ (elname , e 1 type , e2name, e2 type , rel_pos) 


(M  TRANS, model, COST 

,a  ,  8) 

(M  TRANS, model, FLOW 

,va,  9) 

(M  TRANS, model, TOTAL 

,11) 

(M  TRANS, model, NON  NEC 

,t  ,14) 

(M  TRANS, model, PLANT! 

,pe,  1) 

(M  TRANS, model, SUP 

,  a  ,  2 ) 

(M  TRANS, model, CUSTj 

,pe,  3) 

(M  TRANS, model, DEM 

,a  ,  4) 

(M  TRANS, model, LINK 

,ce,  5) 

(M  TRANS, mode 1,T: SUP 

,t  ,12) 

(M  TRANS, mode 1,T: DEM 

,t  ,13) 

Figure  10:  ORACLE  tables  created  to  represent 
the  transportation  problem 
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Select 

ename,etype,dname, idx, idx  stmt, 

grange , grule , comments 

from 

ENTITY, CONTAINZ 

where 

ENTITY. ename  =  CONTAINZ . e2 name 

order 

by  rel_pos; 

Figure  11:  SQL  command  to  read  ENTITY  table 
from  the  model  base 


range,  index  set  statement,  or  natural  language  interpretation 
portions  of  the  genus  paragraphs.  These  portions  can  be  added 
by  using  the  edit  fea'^ure  on  the  main  menu. 

4.  Display  of  the  Genus  Graph 

The  algorithm  for  creating  the  graph  was  adapted  from 
the  work  done  by  Wyant  [Ref.  16].  Figure  13  is  the  genus 
graph  created  by  our  prototype  for  the  transportation  problem. 

When  the  "Display  Model  Graph"  option  is  selected  on 
the  main  menu,  LP/SM  reads  the  CALLS  view  from  the  model  base. 
Figure  14  is  the  SQL  command  that  reads  the  CALLS  view  from 
the  model  base.  Each  CALLS  row  represents  a  directed  arc  in 
the  genus  graph.  We  order  the  rows  in  the  CALLS  view  to  group 
all  the  calls  to  a  particular  node.  This  provides  a  more 
orderly  presentation  of  the  arcs  when  we  draw  the  graph  on  the 
screen . 

The  genus  graph  is  represented  internally  by  creating 
a  linked  list  containing  the  positions  of  each  node 
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PLANTi  /pe/ 

SUPPLY  (PLANTi)  /a/ 

CUSTj  /pe/ 

DEMAND  (CUSTj)  /a/ 

LINK  (CUSTj , PLANTi)  /ce/ 

COST  (LINK)  /a/ 

FLOW  (LINK)  /va/  . 

TOTAL  (COST, FLOW)  /f/  ; @SUMiSUMj ( COSTi j *FLOWi j )  . 

T:SUP  (FLOW, SUPPLY)  /t/  ; @SUMj (FLOWi j )  <=  SUPi  . 
T:DEM  (DEMAND, FLOW)  /t/  ; @SUMi ( FLOWi j )  =  DEMj 
NON_NEG  (FLOW)  /t/  ;  FLOWi j  >=  0  . 


Figure  12:  SML-based  schema  created 
for  the  transportation  problem 
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Figure  13:  Genus  graph  generated  for 
the  transportation  problem 
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Select  elname,  eltype,  e2naine, e2type 
from  CALLS 

order  by  e2name, elname 


Figure  14 :  SQL  command  to  read  CALLS  view 
from  the  model  base 

in  the  graph.  Each  node  in  the  linked  list  is  a  record 
containing  the  name  and  type  of  the  node  and  the  x  and  y 
screen  coordinates  of  the  center  of  the  node. 

The  relationships  defined  by  the  CALLS  view  are  used 
to  draw  the  directed  arcs  between  the  nodes.  The  graph  is 
centered  on  the  screen.  The  x  and  y  coordinates  are  computed 
by  determining  the  number  of  levels  on  the  graph  and  the 
number  of  nodes  on  each  level. 

Since  the  primitive  entities  represent  root  nodes  in 
the  genus  structure,  we  add  all  the  primitive  entities  to  the 
position  linked  list  on  the  first  level  of  the  graph.  The 
next  step  is  to  search  the  CALLS  view  for  all  elements  that 
call  the  primitive  entities.  These  elements  are  added  to  the 
position  linked  list  on  level  two.  We  then  add  the  elements 
that  call  the  elements  on  level  two  to  the  linked  list  on 
level  three.  This  process  continues  until  all  genus  graph 
nodes  are  represented  in  the  position  linked  list. 
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It  is  possible  that  a  genus  will  call  genera  that 
exist  on  two  different  levels  of  the  graph.  If  this  occurs 
we  add  a  spaceholder  position  on  the  lower  level  to  allow  us 
to  draw  the  directed  arcs  that  span  levels  without  drawing 
arcs  that  interfere  with  other  nodes.  For  example  in  Figure 
13  the  arc  from  DEMAND  to  T:DEM  uses  a  spaceholder  on  level 
two. 

The  most  difficult  issue  in  constructing  the  graph  is 
how  to  place  the  nodes  (elements)  and  directed  arcs  (calls) . 
We  have  attempted  to  address  the  problem  in  our  prototype. 
Wyant's  "spaceholder"  reduces  the  possibility  that  an  arc  will 
be  drawn  through  a  node  and  our  ordering  of  the  elements  in 
the  CALLS  view  improves  the  presentation  of  the  arcs  in  the 
lower  levels  of  the  graph.  While  our  prototype  will  always 
produce  a  graph  that  correctly  represents  the  generic 
structure  of  the  model,  the  graph's  aesthetic  quality  is  often 
lacking.  This  limitation  will  be  discussed  in  Section  VI. 

5.  Editing  of  the  Model  Schema 

The  "Edit  Model  Schema"  option  on  the  main  menu  allows 
the  user  to  enter  the  components  of  the  model  schema  that  were 
not  automatically  generated  by  our  prototype.  This 
information  is  added  to  the  ENTITY  table  of  the  model  base  and 
will  be  displayed  in  the  model  schema.  Figure  15  shows  the 
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model  schema  for  the  transportation  problem  after  the  index 
set  statements,  generic  ranges  and  natural  language 
interpretations  have  been  added. 

D.  CONSTROCTION  OF  THE  PROTOTYPE 

The  prototype  is  constructed  in  the  following  order; 

1.  Run  LEX  using  the  input  listed  in  Appendix  B. 

2.  Run  YACC  using  the  input  listed  in  Appendix  B. 

3.  Precompile  all  source  modules  containing  ORACLE  SQL 
commands  with  the  PCC  ORACLE  precompiler. 

4.  Compile  all  source  modules  and  link  them  into  the 
executable  file  XMMS.EXE. 

Appendix  C  contains  the  makefile  used  to  compile  the 
prototype  and  the  C  source  code  for  all  functions  except  those 
that  were  generated  by  YACC  and  LEX.  The  YACC  and  LEX 
functions  were  omitted  because  they  can  easily  be 
reconstructed  by  using  the  input  described  in  Appendix  B. 

E.  RUNNING  THE  PROTOTYPE 

The  prototype  assumes  that  ORACLE  is  loaded  into  extended 
memory  prior  to  running  the  prototype.  ORACLE  is  loaded 
simply  by  typing  ORACLE  at  the  command  prompt. 

Once  ORACLE  is  loaded  the  prototype  is  run  by  typing  XMMS 
at  the  command  prompt.  This  will  clear  the  previous  model  (if 
one  exists)  from  the  ORACLE  database  and  display  the  main 
menu . 
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PLANTi  /pe/  There  is  a  list  of  PLANTS. 

SUPPLY  (PLANTi)  /a/  (PLANT)  :R+  Every  Plant  has  a 
SUPPLY  capacity  measured  in  tons. 

CUSTj  /pe/  There  is  a  list  of  CUSTOMERS. 

DEMAND  (CUSTj)  /a/  (CUST)  :R+  Every  customer  has  a 
nonnegative  demand  measured  in  tons. 

LINK  (CUSTj , PLANTi)  /ce/  Select  { PLANT }X{ CUST) 
where  i  covers  ( PLANT },j  covers  (CUST)  There  are 
some  transportation  LINKS  from  PLANT  to  CUSTOMER. 

COST  (LINK)  /a/  (LINK)  :R+  Every  LINK  has  a 
transportation  cost  rate. 

FLOW  (LINK)  /va/  (LINK)  :R+  There  can  be  a  non¬ 
negative  transportation  FLOW  (in  tons)  over  each 
LINK. 

TOTAL  (COST, FLOW)  /f/  ; @SUMiSUMj (COSTi j *FLOWi j ) 

There  is  a  TOTAL  COST  associated  with  all  the  FLOWS. 

T:SUP  (FLOW, SUPPLY)  /t/  (PLANT)  ; §SUMj (FLOWi j )  <= 

SUPi  Is  the  total  FLOW  leaving  a  PLANT  less  than 
or  equal  to  the  SUPPLY  CAPACITY. 

T:DEM  (DEMAND, FLOW)  /t/  (CUST)  ; @SUMi (FLOWi j )  = 

DEMj  Is  the  total  FLOW  arriving  at  the  customer 
exactly  equal  to  the  its  DEMAND. 

NON_NEG  (FLOW)  /t/  ;FLOWij  >=  0  This  is  the  non¬ 
negativity  constraint.  The  FLOW  must  be  greater  than 
or  equal  to  zero. 


Figure  15:  SML-based  schema  for  the  transportation 
problem  after  editing 


40 


F.  SUMMARY 

We  have  presented  the  implementation  details  for  LP/SM  and 
described  the  conversion  of  the  transportation  problem. 
Because  YACC  will  allow  input  from  a  very  general  class  of 
grammars,  we  could  extend  these  procedures  to  convert  an  LP 
model  described  in  any  mathematical  language  that  can  be 
represented  in  BNF. 

The  prototype  described  here,  while  sufficient  to 
demonstrate  the  conversion  propositions  described  by  Dolk 
[Ref.  12],  is  not  robust  enough  to  serve  as  part  of  an  MMS. 
The  next  section  will  discuss  the  limitations  of  our 
prototype  and  possibilities  for  future  enhancements. 
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VI.  CONCLUSIONS 


Our  prototype  clearly  demonstrates  it  is  possible  to 
construct  a  structured  modeling  representation  of  simple  LP 
models  with  a  minimum  amount  of  input  from  the  user,  however, 
this  version  is  limited  and  a  number  of  enhancements  are 
required.  Here  we  discuss  the  limitations  of  the  current 
version  of  the  prototype  and  the  enhancements  that  would  be 
required  to  produce  a  working  MMS  for  LP  models. 

A.  LIMITATIONS  OF  THE  PROTOTYPE 

The  primary  limitation  of  our  prototype  parser  is  the 
parser's  inability  to  "understand"  the  semantic  rules  of  the 
mathematical  language.  The  parser  must  be  extended  to  include 
more  than  syntax  checking.  These  semantic  rules  are  necessary 
to  ensure  the  validity  of  the  model  description  in  the  model 
base . 

The  graphics  presentation  of  the  genus  graph  in  our 
prototype  is  somewhat  limited.  In  part,  this  is  because  of 
the  difficulty  in  providing  a  general  algorithm  that  will 
arrange  the  nodes  and  arcs  in  a  manner  that  is  consistently 
aesthetically  pleasing.  We  suggest  development  of  a  system 
that  allows  the  user  to  manipulate  the  nodes  and  arcs  of  the 
graph  after  it  is  drawn  to  improve  the  presentation  of  the 
graph.  This  would  require  saving  genus  position  information 
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in  the  model  base  but  would  improve  the  capability  of  the 
system  to  communicate  the  structure  of  the  model. 

The  quality  of  the  graphics  output  could  be  improved 
through  the  use  of  the  full  VGA  capabilities  of  the  IBM  PS/2. 
This  would  increase  the  screen  resolution  to  640x480,  thus 
eliminating  the  jagged  appearance  of  diagonal  arcs.  Bit-mapped 
scaleable  characters  would  improve  the  quality  of  the  textual 
information  on  the  graph  by  allowing  more  precise  placement. 
The  presentation  of  the  graph  may  be  improved  by  assigning  a 
distinct  color  and  icon  to  each  genus  type  as  suggested  by 
Wyant  [Ref.  16]. 

The  present  display  of  the  SML-based  schema  is  limited  to 
a  single  screen.  A  Scrollable  text  window  would  improve  the 
presentation  of  the  schema  and  allow  for  the  display  of  larger 
models . 

Although  this  prototype  was  designed  with  a  multiple  model, 
model  base  in  mind,  the  present  version  of  the  prototype 
supports  only  a  single  model,  model  base.  This  could  easily 
be  extended  to  support  multiple  models  as  described  by  Dolk 
[Ref.  6:p.  714]. 

B.  AREAS  FOR  FURTHER  RESEARCH 

Representing  structured  models  as  data  in  a  RDBMS  is  a 
promising  approach  for  implementing  the  new  generation  of 
modeling  systems  described  by  Geoffrion.  However,  a  number  of 
research  questions  remain  before  a  viable  MMS  can  be 
constructed: 


43 


1.  How  can  the  model's  description  be  integrated  with  the 
corresponding  elemental  detail  ? 

2.  How  can  the  model  and  its  associated  elemental  detail  be 
integrated  with  LP  solvers  ? 

3.  How  can  facilities  be  developed  to  allow  ad  hoc  queries 
of  the  model  base  ? 

Much  remains  to  be  done,  but  the  potential  benefits  are 
worthy  of  the  effort.  A  structured  modeling  based  integrated 
modeling  environment  would  provide  decision  makers  with  a 
better  understanding  of  the  models  upon  which  their  decisions 
are  based.  This  would  improve  the  acceptance  of  model-based 
systems  by  managers  and  enhance  the  quality  of  organizational 
decision  making. 
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APPENDIX  A 


DESCRIPTION  OF  THE  MATHEMATICAL  LANGUAGE 

A.  INTRODUCTION 

This  grammar  is  a  subset  of  the  Structured  Modeling  Language 
(SML)  grammar  proposed  by  Geoffrion  [Ref.  10].  This  language  uses 
the  Module  Test  Expression  grammar  and  the  Function  Test  Expression 
grammar  to  implement  simple  linear  programming  models.  The 
following  are  the  major  features  of  SML  Generic  Rule  grammar  not 
supported  by  this  language  subset: 

1.  User  defined  functions 

2.  Standard  functions  FLOOR,  MAX  or  MIN 

3.  Symbolic  parameters 

4 .  ORD  function 

5.  Logical  functions:  @AND, @OR, @NOT 

6.  @IF  function 

6.  DESCRIPTION  OF  THE  LANGUAGE  SYNTAX 

The  grammar  for  our  language  subset  is  presented  in  Extended 
BNF  form.  The  following  conventions  are  used: 

1.  non-terminal  symbols  are  enclosed  in  <  > 

2.  optional  items  are  enclosed  in  [  ] 
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3 .  items  occurring  zero  or  more  times  are  enclosed  in  {  ) 

4 .  alternative  rules  are  separated  by  | 

5.  terminal  symbols  are  enclosed  in  "  " 

C.  ALPHABET  OF  THE  LANGUAGE 


<divide_sign> 

;  ;  = 

II  yit 

<exp_sign> 

:  :  = 

If  *  11 

<minus_sign> 

:  :  = 

tl  _ft 

<plus_sign> 

II  ^11 

<mult  sign> 

<at> 

;  ;  = 

II  @11 

<colon> 

;  ;  = 

II  •  II 
• 

<digit> 

1 

"I"  1  _ 1  ''9" 

<dol lar> 

:  :  = 

II  $11 

<eq> 

:  :  = 

It —  It 

<gt> 

:  :  = 

H^ll 

<ge> 

:  :  = 

<lbracket> 

:  :  = 

11  ^  II 

<literal> 

:  :  = 

"#TRUE" 

1  ”# FALSE" 

<lletter> 

:  :  = 

1 

"b"  1  _  1  "z" 

<uletter> 

;  ;  = 

1 

"B"  1  ....  1  "Z" 

<lparen> 

; :  = 

II  ^  II 

<lt> 

•  .  = 

H  ^  II 
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M<  =  »» 


<ne> 

•  •  — > 

•  • 

<period> 

:  :  = 

II  ^  II 

<p_digit> 

:  :  = 

<rbracket> 

:  :  = 

If  J  « 

<rparen> 

:  :  = 

It  ^  11 

<rpriine> 

:  :  = 

If  1  II 

<underscore> 

:  :  = 

II  II 

<zero> 

:  :  = 

II  0« 

D.  CHARACTERS  USED  IN  IDENTIFIERS 


<identifier  char> 


:  :=  <digit> 
<uletter> 
<underscore> 


E.  ARITHMETIC  CONSTANTS 


''sign> 

<p_integer> 
<nn_integer> 
<nz_integer> 
<nn  real> 


::=  <plus_sign> 

1  <ininus_sign> 

::=  <p_digit>  {digit} 

::=  <p_digit> (digit)  [  <zero> 

: :=  <p_integer>  |  <sign><p_integer 

::=  <digit>{digit )<period> 
<digit>{digit ) 


F.  NAMES  OF  MODEL  ELEMENTS 


<end>  ::=  "END” 

<gnaine>  <uletter>{  identifier_char } 

I  <dollar>{ identif ier_char } 


<index> 


<lletter> 


<fc  naine> 


"ABS” I "EXP" ! "LN" I "LOG" | "SQRT" 


<i_fc_naine> 

G.  CONTEXT  FREE 

<sp_index> 

<dp_index> 

<pp_index> 

< index_range4  > 

<index_range3> 


<index_range2> 


; :=  "SUM" 


GRAMMAR  FOR  THE  LANGUAGE 


:;=  <index><rpriTne> 


::=  <index><rpriine><rpriine> 


: :=  <index> 
<sp_index> 
<dp_index> 


: :=  <lbracket><pp_index><plus_sign> 
<p_integer><colon> 
<nz_integer><rbracket> 

I  <lbracket><pp_index><plus_sign> 
<p_integer><colon><pp_index> 
<plus_sign><p_integer><rbracket> 


:  :=  <lbracket><pp_index><ininus_sign> 
<p_integer><colon> 
<nz_integer><rbracket> 

I  <lbracket><pp_index><ininus_sign> 
<p_integer><colon> 
<pp_index><rbracket> 

I  <lbracket><pp_index><ininus_sign> 
<p_integer><colon><pp_index> 
<sign><p_integer><rbracket> 


::=  <lbracket><pp_index><colon> 
<nz_integer><rbracket> 

I  <lbracket><pp_index><colon> 

<pp_index><plus_sign><p_integer> 

<rbracket> 

:  :=  <lbracket><nz_integer><colon> 
<nz_integer><rbracket> 


<index_rangel> 


< index_range> 


<index_unit> 
<iterated_f un_unit> 

<index_sup_f unction> 

<of f set_index> 

<replaced_indGX> 

<gr_index> 

<gr_indicies> 


1 <lbracket><nz_integer><colon> 
<pp_index><rbracket> 

1 <lbracket><nz_integer> 

<colon  ><pp_index> 
<sign><p_integer><rbracket> 

: : =  EMPTY 

I  <index_rangel> 

I  <index_range2> 

I  <index_range3> 

I  <index_range4> 

::=  <pp_index><index_range> 

:  :=  <i_fc_naine><index_unit> 

I  <iterated_fun_unit><i_fc_name> 
<index_unit> 

:  :=  <at>  <iterated_fun_unit><lparen> 
<expression><rparen> 

<lbracket><pp_index><sign> 

<p_integer><rbracket> 

:  :=  <lbracket><p_integer><rbracket> 

1  <lbracket><sign><p_integer> 
<rbracket> 

:  :=  <pp_index> 

I  <replaced_index> 

I  <of f set_index> 

::=  <gr_index> 

I  <gr_indicies><gr_index> 
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<simple_var> 


<gnaine> 


I  <gname><gr_indicies> 

<exprpack>  ::=  <lparen><expression><rparen> 

<built_in_function>  ::=  <at><fc_naine><exprpack> 

<variable>  ::=  <siinple_var> 

I  <built_in_function> 

I  <index_sup_function> 

<constant>  ::=  <nn_integer> 

I  <nn_real> 

<factor>  : :=  <constant> 

I  <variable> 

I  <lparen><expression><rparen> 

<power>  ::=  <factor> 

I  <factor><exp_sign><power> 

<terin>  ::=  <power> 

I  <tenn><inult_sign><power> 

I  <tenn><divide_sign><power> 

expression  : :=  <term> 

I  <ininus_sign><tenn> 

I  <expression><sign><tenn> 

<function_expression>  ::=  <expression> 


<relational_operator>  ::=  <lt> 

I  <le> 

I  <eq> 

I  <gt> 

I  <ge> 

I  <ne> 

<test_expression>  : :=  <literal> 

I  <expression><relational_operator> 
<expression> 

I  <expression><relational_operator> 
<expression><relational_operator> 
<expression> 


<mod_test_expression> 

<f_t_expression> 


=  <test_expression> 


=  <test_expression> 

<  f unct ion_express ion> 
<end> 


<inod_function_expression> 


<f_t_expression> 
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APPENDIX  B 


INPUT  TO  LEX  AND  YACC 


A.  INPUT  TO  LEX 


%{ 

/* 

These  regular  expression  define  all  the  symbols 
that  are  allowed  in  the  mathematical  language 

*/ 

/*  include  all  the  manifest  constants 
created  by  YACC  for  tokens  */ 

# include  "ytab.h" 

/*  include  all  symbol  table  data  definitions  */ 
#include  "symbol. h" 


/*  define  return  value  */ 
#define  token (x)  x 


return  0; 


{ 

install (yytext, END, eqno) ; 
return  token (END) ; 

} 

{ 

install (yytext , SUM, eqno) ; 
return  token (SUM) ; 

) 


%} 


[\n] 

[  \t] 

"END" 


"SUM" 
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#TRUE" 


'•#  FALSE" 


"ABS" 


"EXP" 


"LOG" 


"SQRT" 


"LN" 


{ 

install (yytext, LITERAL, eqno) ; 
return  token (LITERAL) ; 

} 

{ 

install (yytext, LITERAL, eqno) ; 
return  token (LITERAL) ; 

} 

{ 

install (yytext, ABS, eqno) ; 
return  token (ABS) ; 

} 

{ 

install (yytext, EXP, eqno) ; 
return  token (EXP) ; 

} 

{ 

install (yytext, LOG, eqno) ; 
return  token (LOG) ; 

) 

{ 

install (yytext, SQRT, eqno) ; 
return  token (SQRT) ; 

) 

{ 

install (yytext , LN, eqno) ; 
return  token (LN) ; 

) 


[$A-Z] [A-Z_] *  { 

install (yytext, IDENTIFIER, eqno) ; 
return  token (IDENTIFIER) ; 

) 

[a-z]*  { 

install (yytext , INDEX, eqno) ; 
return  token (INDEX) ; 

} 

[l-9][0-9]*  { 

install (yytext, NZ_INTEGER, eqno) ; 
return  token (NZ_INTEGER) ; 

} 
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[0-9] [0-9]* 

( 

install (yytext , P_INTEGER, eqno) ; 
return  token (P  INTEGER) ; 

) 

[0-9]*". ''[0-9]* 

{ 

install (yytext , REAL, eqno) ; 
return  token (REAL) ; 

} 

tl  •  It 

{ 

install (yytext, COLON, eqno) ; 
return  token (COLON) ; 

} 

II 011 

{ 

install (yytext, AT, eqno) ; 
return  token (AT) ; 

} 

11*11 

( 

install (yytext, TIMES , eqno) ; 
return  token (TIMES) ; 

} 

II  y  II 

{ 

install (yytext, DIVIDE, eqno) j 
return  token (DIVIDE) ; 

) 

ll_ll 

{ 

install (yytext , MINUS , eqno) ; 
return  token (MINUS) ; 

> 

11^  H 

{  ^ 
install (yytext, PLUS , eqno) ; 
return  token (PLUS) ; 

} 

II  *  II 

{ 

install (yytext , POW, eqno) ; 
return  token (POW) ; 

) 

II  ^  II 

{ 

install (yytext, LPAREN, eqno) ; 
return  token (LPAREN) ; 

) 
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install (yy text, RP AREN, eqno) ; 
return  token (RPAREN) ; 

} 

H  [  »  { 

install ( yy text, LBRACKET, eqno) 
return  token (LBRACKET) ; 

} 

"  ] "  { 

install (yytext,RBRACKET, eqno) 
return  token (RBRACKET) ; 

} 

II  I  II  I 

install (yy text, RPRIME, eqno) ; 
return  token (RPRIME) ; 

} 

11  =  11  I 

install (yy text , EQ, eqno) ; 
return  token (EQ) ; 

} 

{ 

install (yytext,NE, eqno) ; 
return  token (NE) ; 

) 

"<"  { 

install (yytext, LT, eqno) ; 
return  token (LT) ; 

} 

">"  { 

install (yytext, GT, eqno) ; 
return  token (GT) ; 

} 

"<=•'  { 

install (yytext, LE, eqno) ; 
return  token (LE) ; 

) 

">="  { 

install (yytext, GE, eqno) ; 
return  token (GE) ; 

> 
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%% 

/*  Symbol  table  routines 

functions  that  maintain  the  global  symbol  table  used 
by  parser.  The  symbol  table  is  defined  as  a  singlely 
linked  list 

*/ 


extern  Symbol  *head,*tail; 


/**********************/ 
Symbol  *  install (s,t,e) 


char  *  s; 
int  t ; 
int  e ; 


/*  name  of  symbol  */ 

/*  Yacc  code  for  symbol  type  */ 

/*  equation  symbol  was  found  in  */ 


{ 

Symbol  *  sp; 


/*  temp  pointer  to  new  symbol  */ 


/*  dynamically  allocate  space  for  next  symbol  table 
entry  and  the  space  for  the  symbol  name  */ 

sp  =  (Symbol  *)  malloc (sizeof (Symbol) ) ; 

sp->s_name  =  malloc (strlen (s) +1) ; 


/*  assign  values  to  the  symbol  table  entry  */ 

strcpy (sp->s_name, s) ; 
sp->s_typp  ~  t* 
sp->equation  =  e; 
sp->next  =  NULL; 


/*  add  new  symbol  to  end  of  linked  list  */ 


if  (  head  ==  NULL  )  {  /*  first  symbol  on  list  */ 

head  =  tail  =  sp; 
return ; 

) 

else  {  /*  add  to  end  of  list  */ 

tail->next  =  sp; 
tail  =  sp; 
return ; 

} 

} 
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B 


INPUT  TO  YACC 


/*  Mathematical  Language  syntax  analysis  */ 


/*  Terminal  Symbols  */ 

%token  ABS 
%token  AT 
%token  COLON 
%token  DIVIDE 
%token  EQ 
%token  EXP 
%token  END 
%token  GT 
%token  GE 
%token  IDENTIFIER 
%token  INDEX 
%token  LBRACKET 
%token  LITERAL 
%token  LT 
%token  LE 
%token  LPAREN 
%token  LN 
%token  LOG 
%token  MINUS 
%token  NE 
%token  NZ_INTEGER 
%token  POW 
%token  P_INTEGER 
%token  PLUS 
%token  REAL 
%token  RPAREN 
%token  RBRACKET 
%token  RPRIME 
%token  SUM 
%token  SQRT 
%token  TIMES 


/*  define  the  precedence  of  the  operators  */ 

%left  PLUS  MINUS 
%left  TIMES  DIVIDE 
%left  UNARYMINUS 
% right  POW 


%% 


equation 


tes t_express ion 

function_expression 

END 


test_expression  :  LITERAL 

expression  rel_op  expression 
expression  rel_op  expression  rel_op 

expression 


rel_op  :  LE 

GT 

GE 

EQ 

NE 

LT 


function_expression 

expression 

term 

power 

factor 

constant 

variable 

built  in  function 


expression 

term 

expression  PLUS  term 

expression  MINUS  term 

MINUS  term  %prec  UNARYMINUS 

power 

term  TIMES  power 
term  DIVIDE  power 

factor 

factor  POW  power 

constant 

variable 

exprpack 

integer 

REAL 

simple_variable 
built_in_f unction 
index_sup_f unction 

AT  builtin  exprpack 


builtin  :  ABS 

I  EXP 
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SQRT 
LOG 
LN 

:  LPAREN  expression  RPAREN 
:  IDENTIFIER 

I  IDENTIFIER  gr_indicies 
:  gr_index 

I  gr_indicies  gr_index 

:  pp_index 

replaced_index 
of fset_index 

pp_index  :  INDEX 

INDEX  RPRIME 
INDEX  RPRIME  RPRIME 

replaced_index  ;  LBRACKET  P_INTEGER  RBRACKET 

LBRACKET  PLUS  P_INTEGER  RBRACKET 
LBRACKET  MINUS  P_INTEGER  RBRACKET 

offset_index  :  LBRACKET  pp_index  PLUS  P_INTEGER 

RBRACKET 

I  LBRACKET  pp_index  MINUS  P_INTEGER 
RBRACKET 

index_sup_function  :  AT  iterated_fun_unit  exprpack 

iterated_fun_unit  :  SUM  index_unit 

I  iterated_fun_unit  SUM  index_unit 

index_unit  :  pp_index  index_range 

index_range  ;  /*  no  range  */ 

index_rangel 

index_range2 

index_range3 

index_range4 

index_rangel  :  LBRACKET  NZ_INTEGER  COLON  NZ_INTEGER 

RBRACKET 

I  LBRACKET  NZ_INTEGER  COLON  pp_index 
RBRACKET 

I  LBRACKET  NZ_INTEGER  COLON  pp_index  sign 
integer  RBRACKET 

index_range2  :  LBRACKET  pp_index  COLON  NZ_INTEGER 

RBRACKET 


exprpack 

siinple_variable 

gr_indicies 

gr_index 
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index_range3 

index_range4 

integer 

sign 

%% 


I  LBRACKET  pp_index  COLON  pp_index  PLUS 
integer  RBRACKET 

:  LBRACKET  pp_index  MINUS  P_INTEGER  COLON 
NZ_INTEGER  RBRACKET 

I  LBRACKET  pp_index  MINUS  P_INTEGER  COLON 
pp_index  RBRACKET 

I  LBRACKET  pp_index  MINUS  P_INTEGER  COLON 
pp_index  sign  integer  RBRACKET 

:  LBRACKET  pp_index  PLUS  integer  COLON 
NZ_INTEGER  RBRACKET 

I  LBRACKET  pp_index  PLUS  integer  COLON 
pp_index  PLUS  integer  RBRACKET 

;  P_INTEGER 

I  NZ_INTEGER 

:  PLUS 

I  MINUS 
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APPENDIX  C 


MAKEFILE  AMD  SOURCE  LISTING 


############################################•## 

# 

#  Makefile  for  XMMS  prototype 

# 

#  A  prototype  parser  that  converts  a  LP 

#  mathematical  language  into  structured  modeling 

#  formats.  The  models  are  stored  in  a  ORACLE 

#  database.  Models  can  be  displayed  as  textual  schema 

#  or  as  generic  graph. 


#  Writen  By:  David  S.  Hill 

#  Uses  large  memory  model  because  of 

#  ORACLE  PRO*C  interface 

MODEL=L 

#  Object  Files 

OBJS  =parser.obj  menu.obj  models. obj  enter. obj  oracle_r.obj 
oracle_'W . obj  printem.objA 

#  Compiler  Flags 
CFLAGS  =/A$ (MODEL)  /c 
CL  =cl  $ (CFLAGS) 

#  General  Rule  - 

#  make  .obj  from  .c  files 

.  C .  OBJ  : 

$(CL)  $*.c 

#  Compile  all  the  files 

#  Parser  program  created  by  input  to  YACC  and  LEX 

parser. obj:  parser. c  ytab.h 

#  Menu  function  and  main  program 
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menu. Ob j:  menu.c 

#  functions  display  models 

models. obj:  models. c 

#  function  to  enter  model 

enter . obj :  enter . c 

#  function  to  read  and  write  from  ORACLE 

oracle_r.c:  oracle_r.pc 

pcc  iname=oracle_r .pc  host=c 

oracle_r . obj :  oracle_r.c 

oracle_w.c:  oracle_w.pc 

pcc  iname=oracle_w.pc  host=c 

oracle_w. obj ;  oracle_w.c 

/*  link  the  executable  fie  */ 

xmms.exe;  $(OBJS) 

LINK  $ (OBJS) , xmms . exe, , sqlmsc  /se:512  /stackrlOOOO  /map; 
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DATE:  10  Jan  89  -  dsh 


FILE:  defs.h 


CONTENTS: 


Constant  definitions  for  Keys,  Colors  and  other 
common  constants 


/*  Constants  */ 

#dcfine  DEFAULT  -1 
#dGtineTRUE  1 

define  FALSE  0 


/*  Key  Scan  codes 


#de  f  ine  UP 
|<de  f  i  ne  DOWN 
?  dc  fine  LEFT 
»def  ine  RIGH'I’ 
ft  define  ENTER 

/ *  text  color 

fcdefine  BIJVCK 
ft  define  BLUE:: 
ft  define  CYAtf 
t  cie  f  i  ne  RED 
ft  del  ine  WfllTi: 
ftde  f  i  ne,'  LFilUr: 
ftiic’  f  i  nc  LREl) 

tide  fine  BRWUITE 


*/ 

12 
80 
7  9 
7  7 
2  8 

definations  */ 

f) 

1 
1 
4 
7 
<■) 

1  2 
1  9 


/*  video  interrupt  dels  */ 

/*  set  cursor  sixe  service 

/*  interrupt  number  */ 

/*  this  bit  turns  cursor  off 
sots  bit  9  of  register  ch  on  */ 


Bde  1  i  ne  CURS  ]  Zi:  1 

numfier  */ 

tide  t  ine  VIDEO  0x10 

ftdrd  ine  OEIBI'I  0x20 


DATE:  5  Dec  88  -  dsh 

FILE:  ytab.h 

CONTENTS:  Constant  definitions  passed  from  scanner 

to  parser.  Used  in  manipulating  symbol  table 

■k-k-k-k-k-k-kit-kic-k-k-k-k-klfA-k-k'klfk'k-kifklfklfklclelelfk'k'ifk-klele-k'klfklelfkli-k-klfkiclelfkicy 

#  define  ABS  257 

#  define  AT  258 

#  define  COLON  259 

#  define  DIVIDE  260 

#  define  EQ  261 

#  define  EXP  262 

#  define  END  263 

#  define  GT  264 

#  define  GE  265 

#  define  IDENTIFIER  266 

#  define  INDEX  267 

#  define  LBRACKET  268 

#  define  LITERAL  269 

#  define  LT  270 

#  define  LE  271 

#  define  LPAREN  272 

#  define  LN  273 

#  define  LOG  274 

#  define  MINUS  275 

#  define  NE  276 

#  define  NZ_INTEGER  277 

#  define  POW  278 

#  define  P_INTEGER  279 

#  define  PLUS  280 

#  define  REAL  281 

#  define  RPAREN  282 

#  define  RBRACKET  283 

#  define  RPRIME  284 

#  define  SUM  285 

#  define  SQRT  286 

#  define  TIMES  287 

#  define  UNARYMINUS  288 
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/*********************************************************** 

DATE:  10  Jan  89  -  dsh 

FILE:  symbol. h 

CONTENTS:  Type  definitions  and  declarations  for  all 

global  linked  list  elements 

■kls-k-klfk-k-k-k'ielfk-klfkleifk'k-k'k'k-k-k'k-k-k-k'k'k-klfk'klfkifk'k'klfkitltifk-k-k-klfk-klfklfky 

typedef  struct  symbol_table_entry  Symbol; 


struct  symbol_table_entry  { 


char 

int 

int 

struct 


s_name[20];  /*  name  of  symbol  */ 

s_type;  /*  YACC  code  for  symbol  type  */ 

equation;  /*  equation  #  symbol  was  in  */ 

symbol_table_entry  *  next; 

/*  pointer  to  next  symbol  in  list  */ 


}  ; 


typedef  struct  entity_table_entry  Entity; 


struct  entity_table_entry  { 


char  ename[2j]; 
char  etypeis]; 
char  dname[30]; 
char  idx [ 4 ] ; 
char  idx_stmt[50] 
char  grange [20] ; 
char  grule[80] ; 
char  comments [80] 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


name  of  entity  */ 
type  of  entity  */ 
descriptive  name  of  entity 
index  set  */ 
index  statement  */ 
generic  range  stmt  */ 
generic  rule  */ 
informal  interpertation  */ 


struct  entity_table_entry 

*next ; 

/*  pointer  to  next 

)  ; 

table  entry  */ 

typedef 

struct  relship_table_ 

entry 

Relship ; 

struct 

relship_table_entry  { 

char 

rtype[12 ] ; 

/* 

type  of  relationship 

CALLS  */ 

char 

elname [ 20 ] ; 

/* 

calling  entity  name  */ 

char 

el type [ 8 ] ; 

/* 

calling  entity  type  */ 

char 

e2name [20] ; 

/* 

called  entity  name  */ 

char 

e2type [ 8 ] ; 

/* 

called  entity  type  */ 

struct 

relship_table_entry  *next; 

/*  pointer  to  next 

)  ; 


table  entry  */ 
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typedef  struct  inodule_table_entry  Module; 
struct  inodule_table_entry  { 


char 

rtype[12] ; 

/* 

type  of  relationship 
CONTAINS  */ 

char 

elname[20] ; 

/* 

calling  entity  name  */ 

char 

el type [8] ; 

/* 

calling  entity  type  */ 

char 

e2name[20] ; 

/* 

called  entity  name  */ 

char 

e2type[8] ; 

/* 

called  entity  type  */ 

int 

rel_pos ; 

/* 

Position  in  heirarchy  */ 

struct  module_table_entry 

♦next ; 

/*  pointer  to  next 

table  entry  */ 

)  ; 


typedef  struct  entity_position  Position; 


struct  entity_position  { 


char  enaine[20]; 
char  etype [ 8 ] ; 
short  xpos, 
ypos, 
level ; 


struct  entity_position  * 
}  ; 


/*  name  of  entity  */ 

/*  "type  of  entity  */ 

/*  X  pixel  coordinate  */ 

/*  y  pixel  coordinate  */ 

/*  genus  graph  level  -  all 
pe ' s  start 

on  level  1  and  those 
elements  that  call 
them  are  on  the  next  level  */ 
next;  /*  pointer  to  next  item 
in  linked  list  */ 
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y-k-k-k-k-k-k'kicicltlfliltltifkiclck'k'klfkltlilfk-kielt'k-k'kifklfifkltlfic'iirlfklclfk'itiililtlili'klilc'klclt 

DATE:  22  Jan  89  -  dsh 

FILE:  menu.c 

CONTENTS :  Main  function  and  the  functions  to  control 

the  menu  selection.  The  menu  selection 
functions  were  adapted  from  the  basic  graphics 
samples  provided  with  the  Microsoft  C  compiler. 


# include  <stdio.h> 

# include  <dos.h> 

linclude  "defs.h" 
#include  "symbol. h” 
# include  <graph.h> 
#include  <string.h> 
#include  <bios.h> 


/*  standard  io  library  defs  */ 

/*  defines  registers 
for  interrupts  */ 

/*  constant  definations  */ 

/*  typ®  definitions  */ 

/*  graphics  defs  */ 

/*  string  function  defs  */ 

/*  defs  for  BIOS  calls  to  keyboard  */ 


/*  Functions  -  prototypes  */ 

int  menu(int,  int,  char*  []); 

void  box (int,  int,  int,  int)  ; 

void  itemize(int,  int,  char*,  int); 

short  initialize (short) ; 

int  yylex(int) ; 

void  yyerror (void) ; 

extern  void  enter_model (void) ; 

int  yyparse(int) ; 

void  cursor_on (void) ; 

void  cursor_of f (void) ; 

void  display_mcssage (char  *) ; 


/*  Structure  for  configuration  */ 

struct  videoconfig  vc; 

/*  Array  and  enum  for  main  menu  */ 

char  *mnuMain[]  =  { 

"Enter  Model", 

"Edit  Model  Schema", 

"Display  Model  Graph", 

"Display  Model  Schema", 

"Quit", 

NULL  ) ; 
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enum  { 
NEW, 


] 


EDIT,  GRAPH,  SCHEMA,  QUIT  ) ; 


/*  Structure  for  menu  attributes 

(variables  for  color  and  monochrome)  */ 

struct  mnuAtr  { 

int  fgNormal,  fgSelect,  fgBorder; 
long  bgNormal,  bgSelect,  bgBorder; 
int  centered ; 

char  nw [ 2 ] ,  ne [ 2 ] ,  se [ 2 ] ,  sw [ 2 ] ,  ns [ 2 ] ,  ew [ 2 ] ; 

) 

menus  =  ( 

BLACK,  BRWHITE,  RED, 

CYAN,  RED,  CYAN, 

TRUE, 

"\xda",  "\xbf",  ''\xd9",  ''XxcO”,  ''\xb3",  "\xc4" 

}  ; 

struct  mnuAtr  bwmenus  =  { 

0x70,  Oxf,  0x70, 

0x7,  0x70,  0x7, 

TRUE, 

''\xda'',  ''\xbf",  ''\xd9",  ''\xc0'',  ”\xb3'',  ''\xc4'' 

■} ; 

char  messl [ ]  =  { 

"Prototype  Model  Management  System  for  Linear 
Programming"  } 


char  mess2 [ ]  =  { 

"Move  to  menu  selection  with  cursor  keys,  press  ENTER  to 
elect"  } ; 

char  mess3 [ ]  =  { 

"A  Model  already  exists  do  you  want  to  delete  it  ? 
(Y/N)") ; 

int  Imessl  =  sizeof (messl) , 
lmess2  =  sizeof (mess2 ) ; 
lmess3  =  sizeof (mess3 ) ; 
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MAIN 

Main  function  for  XMMS.  Makes  calls  to  set  up  menus, 
and  calls  for  each  of  the  functions  in  the  menu  list. 


main  () 

{ 

int  choice,  /*  menu  choice  */ 

crow,  /*  current  text  position  row  */ 

ccol ;  /*  current  text  position  col  */ 

int  tmode,  /*  video  text  mode  */ 

vmode;  /*  video  mode  for  graphics  */ 


long  bkcolor;  /*  initial  background  color  */ 


short  xpixels,  /*  max  pixels  in 

X  in  graphics  mode  */ 
ypixels,  /*  max  pixels  in  y 

in  graphics  mode  */ 

maxcols,  /*  max  text  columns  in  text  mode  */ 

maxrows,  /*  max  text  rows  in  text  mode  */ 

mflag  =  0;/*  global  flag  set  when 
model  is  present  */ 

char  yorn[4];  /*  buffer  for  y  or  n  answer  */ 

_getvideocGnf ig (&vc) ; 

xpixels  =  VC . numxpixels ; 
ypixels=  vc . numypixels ; 
maxcols=  vc . numtextcols ; 
maxrows=  vc . numtextrows ; 

crow  =  maxrows  /  2 ; 
ccol  =  maxcols  /  2; 
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/*  Select  best  text  and  graphics 

inodes  and  adjust  menus  */ 

switch  (vc. adapter)  { 
case  _MDPA  : 
case  _CGA  : 

puts ("EGA  or  VGA  Graphics  required. \n" ) ; 
exit (0)  ; 
case  _EGA  : 
case  _VGA  : 
case  _MCGA  : 

vmode  =  _ERESCOLOR; 
break ; 

} 

switch  (vc.mode)  { 
case  _TEXTBW80  : 

menun  =  bwmenus; 

case  _TEXTBW40  : 

_setvideomode (_TEXTBW80) ; 
break ; 

case  _TEXTC40  : 

tmode  =  _TEXTC80; 

break ; 

case  _TEXTMONO  : 
case  _ERESNOCOLOR  : 

menus  =  bwmenus; 

tmode  =  _TEXTMONO ; 

vmode  =  _ERESNOCOLOR; 

break; 
default  : 

tmode  =  _TEXTC80; 

) 

_setvideomode (tmode) ; 

/*  delete  old  models  if  any  exist  in  ORACLE  */ 

delete_from_entity ( ) ; 
delete_f rom_relship ( ) ; 

_settextposition (2 , 40  -  (Imessl  /  2)); 
_outtext (messl) ; 

_settextposition (22 , 40  -  (lmess2  /  2)); 
_outtext (mess2 ) ; 
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/*  Select  and  branch  to  menu  choices  */ 
for  ( ; ; )  { 

choice  =  menu (crow, ccol ,mnuMain) ; 


switch  (choice)  { 
case  NEW  : 

if(mflag)  { 

_clearscreen(_GCLiEARSCREEN)  ; 
display_message( "Single  model  prototype 
model  exists  ") ; 

break; 

} 

_clearscreen  (_GCIiEARSCREEN)  ; 
enter_model (  )  ; 

mflag  =  1; 
break; 
case  EDIT  : 

if (mflag)  { 

_clearscreen(_GCLEARSCREEN) ; 
edit_schema(  ); 

} 

else  { 

_clearscreen(_GCLEARSCREEN) ; 
display_message ("Single  model  prototype 
enter  model  first  ") ; 

) 

break; 

case  GRAPH  : 

if (mflag)  { 

initialize (vmode) ; 
display_graph(  ) ; 
_bios_keybrd(_KEYBRD_READ) ; 

} 

else  { 

_clearscreen(_GCLEARSCREEN) ; 
display_message ("Single  model  prototype 
enter  model  first  ") ; 

} 

break; 

case  SCHEMA  : 

if (mflag)  { 

_clearscreen (_GCLEARSCREEN) ; 
display_schema (  ) ; 
_bios_keybrd(_KEYBRD_READ) ; 


else  { 

_clearscreen (_GCLEARSCREEN) ; 
display_message ("Single  model  prototype 
enter  model  first  "); 

) 
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break; 
case  QUIT  ; 

_setvideoinode  (_DEFAULTMODE)  ; 
exit(O)  ; 


} 

_setvideoinode  (tmode)  ; 

) 

) 


/ 

y**************************************************** 

MENU 


Function  to  put  menu  on  screen. 

Returns  number  of  item  selected. 

Adapted  from  Microsoft  C  graphics  samples. 
******************************************************/ 


int  menu (row,  col, 

int 

row, 
col  ; 

char 

{ 

int 

♦items [ ] ; 

i, 

num, 
max=  2 , 
prev, 
curr=  0 , 
choice ; 

int 

litem[25] ; 

long 

bcolor; 

items) 

*  starting  row  and  col  */ 
/*  array  of  menu  items  */ 


cursor_of f ( ) ; 

bcolor  =  _getbkcolor ( ) ; 

/*  Count  items, find  longest, 

and  put  length  of  each  in  array  */ 

for  (num  =  0;  i terns [num];  num++)  { 

litem[num]  =  strlen ( items [num] ) ; 

max  =  (litem [num]  >  max)  ?  litem [num]  :  max; 

} 

max  +=  2 ; 

if  (menus . centered)  { 
row  -=  num  /  2 ; 
col  -=  max  /  2 ; 

} 

/*  Draw  menu  box  */ 
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_settextcolor (menus. fgBorder) ; 

_setbkcolor (menus. bgBorder) ; 
box(row++,col++,num,max) ; 

/*  Put  items  in  menu  */ 

for  (i  =  0;  i  <  num;  ++i)  { 

if  (i  ==  curr)  { 

_settextcolor (menus. fgSelect) ; 

_setbkcolor (menus. bgSelect) ; 

} 

else  { 

_settextcolor (menus . f gNormal ) ; 

_setbkcolor (menus. bgNormal) ; 

} 

itemize(row+i,col, items [ i] ,max  -  litem[i]); 

) 

/*  Get  selection  */ 
for  ( ; ; )  { 

switch  ( (_bios_keybrd(_KEYBRD_READ)  &  OxffOO)  »  8) 

{ 

case  UP  : 

prev  =  curr; 

curr  =  (curr  >  0)  ?  ( — curr  %  num)  :  num-1; 
break; 
case  DOWN  : 

prev  =  curr; 

curr  =  (curr  <  num)  ?  (++curr  %  num)  :  0; 
break; 

case  ENTER  : 

_setbkcolor (bcolor) ; 
return (curr) ; 
default  : 

continue ; 

) 

_settextcolor (menus. fgSelect) ; 

_setbkcolor (menus .bgSelect) ; 

itemize(row+curr,col, items[curr] ,max  -  litem[curr] ) ; 

_settextcolor (menus. fgNormal) ; 

_setbkcolor (menus. bgNormal) ; 

itemize (row+prev, col, items [prev] , max  -  litem[prev] ) ; 
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/*********************************************************** 

BOX 

Draw  menu  box. 

<row>  and  <col>  are  upper  left  of  box. 

<hi>  and  <wid>  are  height  and  width. 
************************************************************ 

/ 

void  box (row,  col,  hi,  wid) 
int  row,  col,  hi,  wid; 

{ 

int  i ; 

char  temp [80] ; 

_settextposition(row,col) ; 
temp [ 0 ]  =  *menus . nw ; 
memset (temp+1, *menus.ew,wid) ; 
temp[wid+l]  =  *menus.ne; 
temp[wid+2]  =  NULL; 

_outt ext (temp) ; 

for  (i  =  1;  i  <=  hi;  ++i)  { 

_settextposition(row+i,col) ; 

_outtext (menus. ns) ; 

_settextposition(row+i,col+wid+l) ; 

_outt ext (menus . ns) ; 

} 

_settextposition (row+hi+1, col)  ; 
temp[0]  =  *menus.sw; 
memset (temp+i , *menus . ew, wid) ; 
temp[wid+l]  =  *menus.se; 
temp[wid+2]  =  NULL; 

_out t ext ( temp) ; 


y"********************************************************* 

ITEMIZE 

Put  an  item  in  menu. 

<row>  and  <col>  are  left  position. 

<str>  is  the  string  item. 

<len>  is  the  number  of  blanks  to  fill. 
**********************************************************/ 

void  itemize (row, col , str, len) 
int  row,  col,  len; 
char  str [ ]  ; 

{ 

char  temp [ 80 ] ; 

_settextposition (row, col) ; 
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_outtext(''  ”)  ; 

_outtext (str) ; 
memset (temp, '  ' ,len — ) ; 
temp[len]  =  NULL; 

_outtext (temp) ; 

} 

INITIALIZE 

Set  the  display  mode  <mode>  is  the  mode  to  set. 
Returns  0  if  mode  is  invalid,  else  returns  nonzero. 

•kk-k  ^kkkkkkkkkkkkk'kkkkkkkkkkk-k-k'klc-k'k'k'kkltlc'klfk-k'kk'k'k'klfkk'kklcit y 

short  initialize (mode) 
short  mode; 

{ 

int  ret, 

i  =  0, 
btm, 

top  =  63, 
inc, 

red  =  0, 
green  =  0, 
blue  =  0 ; 

_getvideoconfig(&vc) ; 
if  (mode  <  _MRES4C0L0R) 
return (0) ; 

if  ( ! (mode  ==  vc.mode))  { 

if(!(ret  =  _setvideomode (mode) ) ) 
return (0) ; 

_getvideoconf ig (&vc) ; 

) 

else 

ret  =  mode; 

_setlogorg (0 , 0) ; 

_moveto (0,0) ; 
return (ret) ; 

} 
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/***************************************************** 

CURSOR_ON 

This  function  uses  the  dos  call  to  a  PJM 
BIOS  routine  to  set  the  size  of  the  cursor 

•k-kitlelfkifk-kic-ic-k-k'k'k-klfkltlilcififk-klfkle-k'k'kieineie'k'kifk'k-klfk'kltitlsltlc'k'ie'k'klcy 

void  cursor_on() 

{ 


union  REGS  regs ;  /*  register  values  for 

interrupts  */ 


int 

start  =  7 , 

/* 

starting  scan 

of 

cursor  */ 

end  =  8 ; 

/* 

end  scan  line 

/*  set  interrupt  values  */ 


line 

of  cursor 


*/ 


regs.h.ch 
regs . h. cl 
regs . h . ah 


(char)  start; 
(char)  end; 
CURSIZE; 


/*  interrupt  call  */ 
int86 (VIDEO, &regs, &regs) ; 


return ; 

} 


/***************************************************** 

CURSOR_OFF 

This  function  uses  the  dos  call  to  a  ROM 
BIOS  routine  to  set  the  size  of  the  cursor 

*******-kifk******ifk*it*-k*-k1ticic1t1c******************-k*****icy 

void  cursor_off() 


union  REGS  regs;  /*  register  values  for 

interrupts  */ 

/*  set  register  values  */ 

regs.h.ch  =  OFFBIT; 
regs. h. ah  =  CURSIZE; 

/*  interrupt  call  */ 
int86 (VIDEO, &regs, &regs) ; 
return ; 
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DATE:  16  Feb  89  -  dsh 

FILE:  models. c 

CONTENTS:  Contains  the  functions  for  display  of 

the  schema  and  the  genus  graph. 

*********************************************************/ 

#include  "defs.h"  /*  constant  definations  */ 

# include  <malloc.h>  /*  memory  allocation  function  defs  */ 

#include  <stdlib.h>  /*  std  ansi  lib  defs  */ 

#include  <stdio.h>  /*  standard  i/o  function  defs  */ 

#include  <graph.h>  /*  graphics  defs  */ 

# include  "symbol. h"  /*  symbol  table  defs  */ 

# include  <bios.h>  /*  defs  for  BIOS  call  to  keyboard  */ 

trinclude  <string.h>  /*  defs  for  strlen  function  */ 

^include  <ctype.h>  /*  defs  for  character  type 

functions  */ 

|!define  MAX_LEVELS  8 

/*  function  prototypes  for  the  functi  ns  in  this  file  */ 

void  display_graph (void) ; 
void  display_schema (void) ; 
void  edit_schema (void) ; 

void  install_position (char* , char* , short) ; 

void  conipute_positions  (void)  ; 

void  read_schema (void)  ; 

void  place_text (void) ; 

void  draw_lines (void)  ; 

void  draw_arrows (void) ; 

void  display_message (char* ) ; 

void  bui ld_cal 1 ing_seq (char  *,char  *) ; 

void  coripute_posit  ions  (void); 


/*  global  head  and  tail  for  the  Entity  table  linked  list  */ 

extern  Entity  *  ehead; 
extern  Entity  *  etail; 

/*  global  head  and  tail  for  the  Relship  table  linked  list  */ 


extern  Relshjp  *  rhead ; 
extern  R.  Iship  *  rtail; 
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/*  head  and  tail  for  the  Position  table  linked  list  */ 

Position  *  phead  =  NULL; 

Position  *  ptail  =  NULL; 

/*  array  to  track  the  number  of  genera  on  each  level  */ 
short  number_on_level [MAX_LEVELS] ; 
char  *  cont_msg  =  “Any  key  to  return  to  Menu" ; 
/*********************************************************** 


DISPLAY_GRAPH 

Function  to  display  the  genus  graph.  Adapted  from  the 
graphical  interface  work  done  by  Wyant  (Ref.  16) 

**********************************************************y 

void  display_graph () 

{ 

struct  videoconfig  config;  /*  struct  for  return  of 
video  config  info  */ 

short  maxx,  /*  max  pixels  on  x  axis  */ 

maxy;  /*  max  pixels  of  y  axis  */ 

Relship  *rp;  /*  pointer  to  relship 

linked  list  */ 

Position  *PP/*  /*  pointer  to  position 

linked  list  */ 

int  level,  /*  position  level 

in  graph  */ 

length,  /*  strlen  of  message  */ 

begin,  /*  beginning  col 

of  message  */ 
i;  /*  counter  */ 

_getvideoconf ig ( &conf ig) ; 

maxx  =  config. numxpixels ; 
maxy  =  conf ig . numypixels ; 

/*  read  in  the  call  information  from  ORACLE  table  */ 
read_relship ( ) ; 

/*  install  all  pe  on  level  1  */ 

rp  =  rhead; 
level  =  1; 
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while  (rp  !=  NULL)  { 


if  (strcmp(rp->e2type, "pe")  ==  0)  { 

install_position(rp->e2naine,  rp->e?type,  level)  ; 

} 

rp  =  rp->next; 

) 

/*  see  if  primitive  entities  exist 

in  the  model  if  not  display  error  */ 

if  (phead  ==  NULL)  { 

display_message ( "Bad  Model  -  no  primitive 

entities  ->  Please  Renter") ; 
delete_from_entity ( ) ; 
delete_from_relship ( ) ; 
return ; 

} 

rp  =  rhead; 
pp  =  phead; 

while  (pp  !=  NULL)  { 

/*  check  for  all 

elements  that  call  those  on  the  position  list  */ 
while (rp  !=  NULL)  { 

if  (strcmp (pp->ename, rp->e2name)  ==  0)  { 


install_position(rp->elname,rp->eltype, (pp->level ) +1) ; 
} 

rp  =  rp->next; 


pp  =  pp->next; 
rp  =  rhead; 

> 

compute_positions ( ) ; 
place_text ( ) ; 
draw_arrows ( ) ; 
draw_l ines ( ) ; 
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/*  display  any  key  message  */ 

length  =  strlen(cont_msg) ; 
begin  =  40  -  (length/2) ; 
_settextcolor (BRWHITE) ; 
_settextposition(l, begin) ; 
_outtext (cont_msg) ; 

/*  free  memory  */ 
free_relship_list 0 ; 
f ree_position_list 0 ; 
free_entity_list 0 ; 

/*  reset  counters  */ 

for(i  =0;i<  MAX_LEVELS ; i++)  { 

number_on_level [ i]  =  0; 

} 

return ; 


/*********************************************************** 

DISPLAY_MESSAGE 

opens  a  text  window  and  displays  the  text  passed  in 
by  the  argument 

*********************************************************/ 

void  display_message (mess) 

char  mess[50];  /*  buffer  to  hold  message  to  display  */ 


long 

old_color ; 

/* 

old  background  color 

to 

restore  */ 

short 

old_text_color 

;/* 

color  to  restore  */ 

int 

mlength ; 

/* 

length  of  message 

for  centering  */ 

char 

buf fer[80] ; 

/* 

text  buffer  for  continue 

.  . ,  message  */ 


old_color  =  _getbkcolor ( )  ; 
old_text_color  =  _gettextcolor ( ) ; 

_settextwindow (15,5,10,70)  ; 
_settextcolor (BRWHITE) ; 
_setbkcolor (CYAN) ; 
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_clearscreen (_GWINDOW) ; 

/*  center  message  */ 

mlength  =  strlen(mcss) ; 
_settextpcsition(2 , 30- (mlength/2) ) ; 
_outtext (mess) ; 


sprintf  (buffer ,  "Any  key  to  continue . ")  ; 

mlength  =  strlen (buffer) ; 

_settextposition (4 , 30- (mlength/2) ) ; 

_outtext (buffer) ; 

_bios_keybrd(_KEYBRD_READ) ; 

/*  restore  the  screen  */ 


_settextcolor (old_text_color) ; 
_setbkcolor (old_color) ; 
_clearscreen (_GWINDOW) ; 

_settextwindow (1,1,25,80)  ; 

return ; 


} 

/*********************************************************** 

INSTALL_POSITION 

This  function  places  each  entity  found  in  display_graph 
into  the  position  linked  list.  If  the  element  is  already  on 
the  list  on  the  same  display  level  it  will  not  be  added.  If 
it  is  already  on  the  list  on  a  lower  display  level  the  lower 
level  is  converted  to  a  place  holder  to  allow  the  arc  to 
span  levels 

it*********************************************************/ 

void  install_position (ename , etype , level ) 


char 

ename [ 20 ] 

r 

/* 

char 

etype [ 8 ] ; 

/* 

short 

level ; 

/* 

of 

{ 

Position  *pp. 

/* 

temp 

*tp; 

/* 

temp 

name  of  element  */ 
type  of  element  */ 
the  display  level 
the  element  */ 


pointer  to  new  structure  */ 
pointer  to  walk  through 
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the  linked  list  */ 


/*  create  new  structure  */ 

pp  =  (Position  *)  malloc  (sizeof (Position) ) ; 

strcpy (pp->ename,enaine)  ; 
strcpy (pp->etype,etype) ; 
pp->level  =  level; 
pp->next  =  NULL; 

/*  if  list  is  empty  -  add  it  */ 

if  (phead  ==  NULL)  { 

phead  =  ptail  =  pp; 
number_on_level [ level ]++; 
return ; 

} 

/*  check  to  see  if  it  is  there  already  */ 

tp  =  phead ; 

while(tp  !=  NULL)  { 

if  (strcmp(ename, tp->ename)  ==  0)  { 

/*  see  if  it  is  on  a  lower  level 

if  so  we  will  make  the  lower  level 
a  space  holder  and  add  new  position 
on  higher  level  to  list  */ 

if(tp->level  <  level)  { 

number_on_level [level ] ++ ; 
strcpy (tp->etype, "sp" ) ; 
ptail->next  =  pp; 
ptail  =  pp; 
return ; 

> 

/*  don't  add  second  position  if  it 
is  already  on  the  list  on  this  level  */ 

else  { 

free(pp) ; 
return ; 

) 


) 

/*  not  same  ename  so  look  through 
the  rest  of  list  */ 
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tp  =  tp->next; 


) 

/*  not  on  list  so  add  to  end  */ 
nuiiiber_on_level  [  level  ]  ++ ; 
ptail  ->next  =  pp; 
ptail  =  pp; 
return ; 


y'********************************************************** 

COMPUTE_POSITIONS 

Function  to  compute  the  x  and  y  coordinates  of  the 
elements  of  the  genus  graph 


*********************************************************y 

void  compute_positions 0 


Position  *pp;  /*  temp  pointer  into  position  list  */ 

short  maxx,  /*  max  pixels  in  x  direction  */ 

maxy,  /*  max  pixels  in  y  direction  */ 

max_level , 

/*  max  number  of  levels  */ 
xpos ,  /*  X  position  of  element  */ 

ypos,  /*  y  position  of  element  */ 

xint,  /*  interval  between  elements 

on  level  */ 

yint,  /*  interval  between  levels  */ 

level;  /*  counter  for  current  level  */ 

struct  videoconfig  vc; 

/*  return  variable  that  holds  video 
config  info  */ 

_getvideoconf ig (&vc) ; 

maxx  =  VC . numxpixels ; 

maxy  =  vc , numypixels ; 


max_level  =  ptail->leve^ ; 


level 


1; 


/*  initialize  pointer  to  head  of  list  */ 
pp  =  phead; 

/*  space  genera  evenly  on  screen  */ 

yint  =  (short)  (maxy/ (inax_level  +  1)); 

xint  =  (short)  (maxx/ (nuinber_on_level  [level ]+l) )  ; 

ypos  =  yint; 

xpos  =  xint ; 

while (pp  !=  NULL)  { 

if(pp->level  >  level)  { 
level++ ; 

xint  =  (short)  (maxx 
/ (number_on_level [ level ] +1) ) ; 

ypos  +=  yint; 
xpos  =  xint; 

} 

/*  assign  position  */ 
pp->xpos  =  xpos; 
pp->ypos  =  ypos; 

/*  increment  x  position  and  go  to  next  position  */ 
xpos  +=  xint; 
pp  =  pp->next; 

) 

) 

/★A******************************************************** 

PLACE__TEXT 

Function  to  place  the  genus  name  on  the  genus  graph 

********** *************************************************y 

void  place_text() 

{ 
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Position  *pp;  /*  temp  pointer  into  position  list  */ 


struct  videoconfig  vc; 

/*  return  variable  that  holds  video 


short 

config  info  */ 

length,  /*  length  of  string  to  center  */ 

maxx,  /*  max  pixels  in  x  direction  */ 

maxy;  /*  max  pixels  in  y  direction  */ 

int 

centerx,  /*  col  on  which  to 
center  text  */ 

centery;  /*  row  on  which  to 
center  text  */ 

float 

textx  =  80.0,  /*  max  values 

of  text  coordinates  */ 
texty  =28.0;  /*  must  be  floats  to 

do  coordinate 
conversion  */ 

char 

type_buf[6];  /*  buffer  to  hold 

entity  type  */ 

_getvideoconf ig (&vc) ; 

itiaxx  =  vc.  numxpixels  ; 
maxy  =  vc. numy pixel s ; 

pp  =  phead ; 

while (pp  !=  NULL)  { 

/*  convert  graphics  position  to  text  row  and  col  */ 

centerx  =  (short)  (textx  *  (pp->xpos)  /maxx) ; 
centery  =  (short)  (28  -  (texty  *  (pp->ypos) /maxy ) ) ; 


length  =  strlen (pp->ename) ; 

_settextposition (centery , (centerx  -  (length  /2))); 
if  (strcmp (pp->etype, "sp")  J=  0)  { 

_outtext (pp->ename) ; 

sprintf (type_buf , "  /%s/" , pp->etype) ; 

_outtext (type_buf ) ; 

) 
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PP  =  pp->next; 


} 

} 

y-k‘ic-kicii-k'k-k-k-k-ic1c*1c-k-k1fk1fk1c-k‘k‘k-k‘k1eii1i-k-k'k-k1fk1fk*1cii1i1fk1fk-k1i'k1i1fk'ic'k-kkie-k-k 

DRAW_ARROWS 

Function  to  draw  the  arrow  heads  for  lines  representing 
the  calls  on  the  genus  graph 

***********************************************************/ 

void  draw_arrows ( ) 

{ 

short  X,  /*  X  pos  of  arrow  tip  */ 

y,  /*  y  pos  of  arrow  tip  */ 

maxx,  /*  max  pixels  in  x  direction  */ 

maxy;  /*  max  pixels  in  y  direction  */ 

Position  *pp;  /*  temp  pointer  to  the  position 
linked  list  */ 

struct  videoconfig  vc; 

/*  return  variable  that  holds  video 

config  info  */ 

_getvideoconf ig (&VC) ; 

maxx  =  VC . numxpixels ; 
maxy  =  vc . numypixels ; 

PP  =  phead; 

while(pp  !=  NULL)  { 

/*  draw  arrowheads  on  all  positions 
except  spaceholders  and  pe  */ 

if  (strcmp(pp->etype, "sp”)  !=  C)  { 

if (strcmp(pp->etype, "pe")  !=  0)  { 

X  =  pp->xpos; 

/*  offset  y  from  the  text  */ 
y  =  pp->ypos  -  15; 

/*  draw  arrow  head  */ 

_moveto (x,maxy-y) ; 

_lineto (x-3 ,maxy-y+4 ) ; 

_lineto (x+3 ,maxy-y+4 ) ; 
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lineto (x,inaxy-y)  ; 

floodf  ill  (x,inaxy-y+2  ,  BRWHITE)  ; 

moveto(x,inaxy-y+4)  ; 

lineto (x,inaxy-y+8)  ; 


} 

} 

PP  =  pp->next; 

} 

return ; 

} 


DRAW_LINES 

Function  to  draw  the  lines  representing  the  calls  on 
the  genus  graph 


void  draw_lines() 
{ 


Relship 

Position 

Position 

short 


direction  */ 
direction  */ 


*rp;  /*  temp  pointer  to  the 
relship  linked  list  */ 
*pp;  /*  temp  pointer  to  the 
position  linked  list  */ 
*tp;  /*  pointer  to  find 

all  calling  elements  */ 


level_dif f , 
begin , 
xbegin, 
ybegin , 
xend, 
yend , 
maxx , 


/*  vertical  difference 
between  two  genus  levels  */ 
/*  begining  level 
of  line  */ 

/*  X  coordinate  of 

called  element  */ 

/*  y  coordinate  of 
called  element  */ 

/*  X  coordinate  of 
calling  element  */ 

/*  y  coordinate 
of  calling  element  */ 

/*  max  pixels  in  x 


maxy ; 


/*  max  pixels  in  y 


struct  videoconfig  vc; 
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struct  videoconfig  vc; 

/*  return  variable  that  holds  video 
config  info  */ 

char  called_naiiie[20] ,  /*  temp  buffers 

for  the  strings  to 
compare  */ 

calling_name[20] ; 

/*  initailize  pointers  */ 

rp  =  rhead; 

_setcolor (BRWHITE) ; 

_getvideoconfig(&vc) ; 

maxx  =  VC . numxpixels ; 
maxy  =  vc , numypixels ; 

while  (rp  !=  NULL)  { 

pp  =  phead ; 

strcpy (called_name,rp->e2name) ; 
strcpy (calling_name, rp->elname) ; 


while  (pp  !=  NULL)  { 

/*  find  position  of  called  element  */ 

if (strcmp(called_name,pp->ename)  ==  0)  { 

begin  =  pp->level; 
xbegin  =  pp->xpos; 
ybegin  =  pp->ypos; 

/*  lock  through  the  rest  of  list 

for  all  calling  elements  */ 

tp  =  pp->next; 

while(tp  !=  NULL)  { 

if (strcmp (calling_name, tp->ename)  ==  0)  { 

level_diff  =  tp->level  -  begin; 
if (level_dif f  ==  1)  { 
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/*  leave  space  for  text  if  not  space  holder  */ 
if  (strcmp (tp->etype, ”sp”)  ==  0) 
yend  =  tp->ypos; 

else 

yend  =  tp->ypos  -  25; 

_moveto (pp->xpos , 

maxy  -  pp->ypos) ; 

_lineto (xend,itiaxy-yend)  ; 


if  (level_diff  >  1)  { 

/*  draw  upper  part  from  space  holder  */ 
xbegin  =  xend; 
ybegin  =  yend; 
xend  =  tp->xpos; 
yend  =  tp->ypos-25; 
_moveto (xbegin, 

maxy-ybegin)  ; 
_lineto (xend, maxy-y end) ; 

} 

} 

tp  =  tp->next; 


} 

} 

PP  -  pp->next; 

} 

rp  =  rp  ->next; 

) 

} 
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DISPLAY_SCHEMA 

Function  to  display  the  model's  structured  modeling 
schema . 


void  display_schema ( ) 
{ 


char  buffer[240],  /*  buffer  to  hold  genus  para  */ 

calling_seq[80] ;  /*  buffer  to  construct 

calling  sequence  */ 


struct  rccoord  text ; 

int  length, 

begin ; 

Entity  *  ep; 


/*  current  text  row  and  col  */ 

/*  strlen  of  message  */ 

/*  beginning  col  of  message  */ 

/*  pointer  to  linked  list  */ 


/*  read  in  data  */ 
read_schema ( ) ; 
read_relship ( ) ; 

/*  set  up  screen  */ 

_settextwindow ( 1 , 1 , 25 , 80)  ; 

_wrapon (_GWRAP0N) ; 

_settextcolor (BRWHITE) ; 

/*  initialize  pointer  to  top  of  list  */ 

ep  =  ehead ; 

while (ep  !=  NULL)  { 

if  (strcmp (ep->etype, "model")  ==  0)  { 

text  =  _gettextposit j on ( ) ; 
text. row  +=  2; 
text. col  =  0; 

_settextposition (text . row, text . col ) ; 
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} 

else 


} 

else 


} 

else 


) 

else 


sprintf  (buffer,  ''%s 

%s .  "  ,  ep->ename ,  ep->cominents )  ; 
_outtext (buffer) ; 


if  (strcitip(ep->etype,  "pe")  ==  0)  { 

text  =  _gettextposition ( ) ; 
text. row  +=  2; 
text. col  =  0; 

_settextposition (text . row, text .col) ; 
sprintf (buffer , "%s  /pe/  %s.", 
ep->enaine, ep->coirunents)  ; 

_outtext (buffer) ; 


if  (stremp (ep->etype , "ce" )  ==  0)  { 

text  =  _gettextposition ( ) ; 
text. row  +=  2; 
text. col  =  0; 

_settextposition (text . row, text . col) ; 

build_cal  1  ing_seq  ( ep->enaine ,  ca  1 1  ing_seq) 

sprintf  (buffer , ''%s  %s  /ce/  %c  %s.", 
ep->ename,  calling_seq,  ep->idx_stnit , 
ep->coininents)  ; 

_outtext (buffer) ; 


if  (strcrtip(ep->etype,  ”a")  ==  0)  { 

text  =  _gettextposition ( ) ; 
text . row  +=  2 ; 
text. col  =  0; 

_settextposition(text. row, text . col) ; 

build_calling_seq(ep->ename, calling_seq) 

sprintf  (buffer , ''%s  %s  /a/  %s  %s  %s.", 
ep->ename,  calling_seq,  ep->idx_stint , 
ep->grange,  ep->coininents)  ; 

_outtext (buffer) ; 


if  (strcinp(ep->etype,  ”va")  ==  0)  { 

text  =  _gettextposition ( ) ; 
text. row  +=  2; 
text. col  =  0; 

_settextposition (text . row, text . col ) ; 
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build_calling_seq ( ep->ename , call ing_seq) 

sprintf  (buffer ,  ”%s  %s  /va/  %s  %s 
ep->enaine ,  calling_seq,  ep->idx_stmt , 
ep->grange,ep->coininents)  ; 

_outtext (buffer) ; 

} 


else  if  (strcinp(ep->etype,  "t")  ==  0)  { 

text  =  _gettextposition ( ) ; 
text. row  +=  2; 
text. col  =  0; 

_settextposit ion ( text . row, text . col ) ; 

build_calling_seq(ep->ena’me,  calling_seq) 

sprintf  (buffer , ''%s  %s  /t/  %s  ;%s  %s.", 

ep->enaine,  calling_seq,  ep->idx_stint , 
ep->grule, ep->coininents)  ; 

_outtext (buffer) ; 

} 

else  if  (strcinp(ep->etype,  •'f”)  ==  0)  { 

text  =  _gettextposition ( ) ; 
text . row  +=  2 ; 
text. col  =0; 

_settextpos it ion ( text . row , text . col ) ; 

build_calling_seq(ep->enaine,  calling_seq) 

sprintf (buffer , ”%s  %s  /f/  %s  ;%s  %s.", 

ep->enaine,  calling_seq,  ep->idx_stint , 
ep->grule, ep->coTiunents)  ; 

_outtext (buffer) ; 

} 

ep  =  ep->next; 

} 

/*  display  any  key  message  */ 

length  =  strlen (cont_msg) ; 
begin  =  40  -  (length/2); 

_settextcolor (BRWHITE) ; 

_settextposition (1 . begin)  ; 

_outtext (cont_msg) ; 


/*  free  memory  */ 
free_entity_list 0 ; 
free_relship_list ( ) ; 
return ; 


} 


BUILD_CALLING_SEQUENCE 

function  to  build  the  calling  sequence  for  genus  ename 
by  looking  at  the  relship  linked  list 

***********************************************************/ 


void  build_call ing_seq (ename , calling_seq) 


char  ename [20], 

calling_seq[80] ; 


{ 


/*  name  of  entity  we  are  buiding 
calling  sequence  for  */ 

/*  buffer  to  concatenate 
calling  seq  */ 


int  length;  /*  length  of  calling  seq  */ 

Relship  *rp; 


rp  =  rhead; 

strcpy (call ing_seq , " ( " )  ; 

while (rp  NULL)  { 

if (strcmp(rp->elname, ename)  ==0)  { 

strcat (calling_seq, rp->e2name) ; 
strcat (calling_seq, " , ”) ; 

} 

rp  =  rp->next ; 


/*  add  right  paren  at  end  in  place  of  final  comma  */ 

length  =  strlen (calling_seq) ; 
calling_seq[ length-1 ]  =  ')'; 

return ; 
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/*********************************************************** 

EDIT_SCHEMA 

function  to  allow  user  to  add  the  index  statement,  the 
generic  range  and  the  natural  language  interpretation 
that  were  not  generated  by  the  parser 

*********************************************************/ 

char  *  mlinsl  =  "AED  IIODEL  E)OCUMENTAT10N"  ; 
char  *  mline2  =  "Enter  (E)dit  (S)kip  or  (Q)uit"; 


void  edit_schema ( ) 


Entity  *  ep; 


int  length, 

done  =  FALSE, 
begin, 

line , 
c  ; 


char  string [ 2 ] , 
line_buf [81]  ; 


read_scheina  ( )  ; 

/*  initialize  full  screen  text  window  */ 

_setbkcolor ( BLACK) ; 

_settextwindow (1,1,25,80)  ; 

_clearscreen (_GWINDOW) ; 

length  =  strlen (mlinel)  ; 
begin  =  40  -  (length/2) ; 

_settextcolor (RED) ; 

_settextposition (4 , begin) ; 

_outtext (mlinel)  ; 

_settextposition (8 , 25)  ; 

_settextcolor (BRWHITE) ; 

_outtext (ml ine2 ) ; 

_setcolor (RED) ; 

box ( 3 , begin-1 , 1 , length) ; 


/*  temp  pointer  to  entity 
linked  list  */ 

/*  length  of  centered  msg  */ 
/*  finished  flag  */ 

/*  begining  col  of  centered 
text  */ 

/*  current  text  line  */ 

/*  value  of  character 
returned  from  getche  */ 

/*  buffer  for  edit  choice  */ 
/*  buffer  for  mnemonic  name  */ 
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ep  =  ehead; 


while (ep  !=  NULL)  { 

while  (  !  done)  { 

_settextcolor (BRWHITE) ; 

_settextposition(12 , 5)  ; 
_outtext ("Genus  Name:  ") ; 

_outtext (ep->ename) ; 
_settextposition(12,42) ; 
_outtext ("Index:  ") ; 

_outtext (ep->etype) ; 


/*  check  to  see  what  we  want  to  do  */ 


fflush(stdin) ; 
c  =  getch (stdin) ; 


switch (c)  { 

case  ' e ' : 
case  ' E ' ; 

( 

/*  set  new  text  window  for  prompts  */ 

_setbkcolor (BLACK) ; 

_settextwindow(14 , 1, 25, 80)  ; 
_clearscreen (_GWIND0W) ; 


/*  edit  idx_stmt  grange  and  comments  */ 
f flush (stdin) ; 

_settextposition(2 , 5)  ; 

_outtext ("Enter  the  Index  Statement:"  ); 
_settextposition(3, 5) ; 
gets (line_buf ) ; 

strcpy (ep->idx_stmt , line_buf ) ; 
_settextposition(5, 5)  ; 

_outtext ("Enter  the  Generic  Range"); 
_settextposition(6, 5) ; 
gets (line_buf ) ; 
strcpy (ep->grange, line_buf) ; 
_settextposition(8, 5) ; 

_outtext ( "Enter  the  Interpretation:"  ); 
_settextposition (9 , 5) ; 
gets (line_buf ) ; 
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strcpy  ( ep->coinnients ,  1  ine_buf )  ; 
done  =  TRUE; 

/*  clear  the  prompts  */ 
_clearscreen(_GWINDOW) ; 

/*  text  window  is  full  screen  */ 

_sett extwindow (1,1,25,80) ; 

break; 

} 

case  's': 
case  'S': 

{ 

/*  skip  this  one  */ 
done  =  TRUE; 
break; 

} 

case  ' q ' : 
case  ' Q ' : 

{ 

/*  save  changes  and  free  memory  */ 
delete_from_entity ( ) ; 
write_entity ( ) ; 
free_entity_list 0 ; 
return ; 

} 

default: 

{ 

continue ; 

} 

) 

} 

clear_line ( 12 ) ; 
ep  =  ep->next; 
done  =  FALSE; 

} 

/*  write  to  ORACLE  and  free  memory  */ 

delete_from_entity ( ) ; 
write_entity ( ) ; 
free_entity_list 0 ; 
return ; 


yicicic'kic'k'k'kie'k'k'k’kic’kie'k'k’k'k'k'kic'k'kit'k'k'kic'k'k'k'k'k'k'k'k'kic’k'k’k'kicieicie'k’kit'k'kiciticicif'k 


DATE: 


22  Jan  89  -  dsh 


FILE; 


enter . c 


CONTENTS:  Functions  that  allow  the  user  to  enter  a  new 

model  in  mathematical  format  and  convert  this  format  to 
the  entity  and  relship  tables  defined  in  the  ORACLE 
database . 


********************************************************/ 

constant  definations  */ 
memory  allocation  function  defs  */ 
std  ansi  lib  defs  */ 
standard  i/o  function  defs  */ 
graphics  defs  */ 

symbol  table  defs  */ 
defs  for  BIOS  call  to  keyboard  */ 
defs  for  symbol  types  */ 
defs  for  strlen  function  */ 
defs  for  character 
type  functions  */ 


# include 

"defs.h" 

/* 

# include 

<malloc.h> 

/* 

# include 

<stdlib.h> 

/* 

# include 

<stdio.h> 

/* 

#include 

<graph.h> 

/* 

# include 

"symbol . h" 

/* 

#include 

<bios.h> 

/* 

# include 

"ytab.h" 

/* 

#include 

<string. h> 

/* 

^include 

<ctype , h> 

/* 

/*  function  prototypes  for  the  functions  in  the  file  */ 

void  yyerror (void) ; 
void  delete_equation ( int) ; 
void  translate_table (void) ; 
void  clear_l ine ( int) ; 

void  install_entity (char  *,char  *,char  *,char  *, 

char  *,char  *,char  *,char  *) ; 
void  install_relship (char  *,char  *,char  *,char  *,char  *) ; 
void  enter_model_description (void) ; 
void  rename_genus_relship (char*, char*) ; 
void  f ree_entity_list (void) ; 
void  free_module_list (void) ; 
void  free_relship_list (void) ; 
void  change_relship_type (char  *) ; 
void  build_monotone_order (char*) ; 

void  install_module(char*, char*, char*, char*, char*, int) ; 

void  build_grules (void) ; 

void  change_symboi (char* , char*) ; 

void  insert_grule (char* , int) ; 
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/*  global  head  and  tail  for  the  symbol  table  linked  list  */ 

Symbol  *head  =  NULL; 

Symbol  *tail  =  NULL; 

/*  global  head  and  tail  for  the  Entity  table  linked  list  */ 

Entity  *  ehead  =  NULL; 

Entity  *  etail  =  NULL; 

/*  global  head  and  tail  for  the  Relship  table  linked  list  */ 


Relship  *  rhead  =  NULL; 

Relship  *  rtail  =  NULL; 

/*  global  head  and  tail  for  the  Module  table  linked  list  */ 

Module  *  mhead  =  NULL; 

Module  *  mtail  =  NULL; 

/*  head  and  tail  for  the  Position  table  linked  list  */ 

extern  Position  *  phead; 
extern  Position  *  ptail; 

/********************************************************** 

YYERROR 

Called  by  the  parser  in  the  case  of  a  syntax  error. 

Opens  text  window  and  displays  location  of  the  error. 
*********************************************************/ 

void  yyerrorO 

( 

char  buffer[80];  /*  buffer  to  hold  text 

error  message  */ 

extern  char  yytext[];  /*  text  buffer  used  by 

YACC  parser  to  hold  current 
token  */ 

long  old_color;  /*  old  background  color  */ 

int  mlength;  /*  length  of  text  message 

for  centering  */ 

old_color  =  _getbkcolor ( ) ; 
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_settextwindow(15 , 10 , 20 , 70) ; 

_settextcolor (BRWHITE) ; 

_setbkcolor (CYAN) ; 

_clearscreen(_GWINDOW) ; 

/*  output  syntax  error  found  */ 
sprintf (buffer, 

"Syntax  Error->  Unexpected  Symbol:  %s",yytext); 
mlength  =  strlen (buffer) ; 

_settextposition(2, 30- (mlength/2) ) ; 

_outtext (buffer) ; 

sprintf (buffer , "Any  key  to  continue . ") ; 

mlength  =  strlen (buffer) ; 

_settextposition(6, 30- (mlength/2) ) ; 

_outtext (buffer) ; 

/*  wait  for  any  key  */ 
_bios_keybrd(_KEYBRD_READ) ; 

/*  reset  screen  */ 

_setbkcolor (old_color) ; 

_clearscreen (_GWINDOW) ; 

_settextwindow (1,1,25,80)  ; 

_settextposition(5, 5) ; 


) 

/******************************************************* 

ENTER_MODEL 

Function  that  will  prompt  the  user  for  model  to  input. 
Calls  function  to  write  the  model  to  the  ORACLCE  database. 


’kit’k'k'k'k’kicic'kifif'k'k'k'k'k'kic'k'kic'kieic'kic'k'k 

char  omess[]  = 

"Enter  the  Objective  function 
int  lomess  =  sizeof (omess) ; 
extern  char  *  input_pointer ; 

char  equation_buf fer[80] ; 


★★★★★★★★★★★★★★★★★A********** / 


or  END  to  exit  to  main  menu"; 

/*  length  of  message  used 
for  centering  */ 

/*  pointer  to  the  current 
input  character  to  be  read 
by  scanner  */ 

/*  buffer  that  holds 
current  equation  */ 


void  enter_model ( ) 
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{ 


int  equation_no  =  0; 
char  buffer[80], 
ebuf [3] , 

name [ 20] , 
namel [20]  ; 
int  status  =  1 ; 
int  Imess; 

int  line; 


/*  counter  for  the  equations  */ 
/*  buffer  for  prompts  */ 

/*  buffer  for 
equation_no  string  */ 

/*  model  name  */ 

/*  input  model  name  */ 

/*  parser  error  status  */ 

/*  length  of  message 
used  for  centering  */ 

/*  current  text  line  */ 


char  eq[ 6 ] ; 


int  i ; 


/*  text  string  used  to 
concatenate  with  equation  # 
for  a  temporary  variable  name  */ 
/*  index  */ 


/*  window  is  full  screen  */ 


_setbkcolor (BLACK) ; 

_settextcolor (BRWHITE) ; 
_settextwindow (1,1,25,80) ; 
_clearscreen (_GWIND0W) ; 

_settextposition (5 , 5) ; 

_outtext ( "Enter  the  model  Name>  ") ; 
gets (namel) ; 
clear_line (5)  ; 


strcpy ( name , "M_" )  ; 
s treat (name , namel) ; 

install_entity (name , "model" , "  ","  ","  ","  ","  "); 

cursor_on ( ) ; 
line  =  5; 
strcpy (eq, "EQN" )  ; 

/*  enter  the  objective  function  */ 
while (status  ==  1)  { 

_settextcolor (BRWHITE) ; 
_settextposition(3,40-(lomess/2) ) ; 

_outtext (omess)  ; 

_settextposition(line, 5) ; 
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_outtext  ("OBJ>  Z  =  •'); 
status  =  yyparse (equation_no) ; 


/*  check  to  see  if  syntax  error  -  if  so 
remove  symbols  from  table  */ 

if  (status  ==  1)  { 

*input_pointer  =  NULL; 

delete_equation(equation_no) ; 

clear_line (3 ) ; 
clear_line (5)  ; 


} 


/*  install  objective  function  as  entity  */ 

for{i  =  0;i<80;i++)  { 

if (iscntrl (equation_buffer[ i] )  !=  0)  { 

equation_buf fer [ i]  =  NULL; 


if (tail->s_type  !=  END)  { 

install_entity("EQNO'',"f'',''  " 

equat ion_buf fer , "  ")  ; 

I 

/*  set  variable  for  second  equation  */ 

1 ine++ ; 

equat ion_no++ ; 
status  =  1; 

/*  loop  until  the  END  symbol  is  entered  */ 


while (tail->s_type  !=  END)  { 

clear_l ine ( 3 ) ; 
clear_l ine ( 1 ine)  ; 

sprintf (buffer, 

'•Enter  Equation  for  constraint  Number 

%d  or  END  after  last  constraint",  equat i on_no ) ; 

Imess  =  strlen (buf f er) ; 
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_settextposition(3,40-(lroess/2) ) ; 
_outtext (buffer) ; 

_settextposition (line, 5) ; 

sprintf  (buffer ,  "EQN  %d>  ,  equation_no)  ; 

_outtext (buffer) ; 

status  =  yyparse (equation_no) ; 


/*  check  to  see  if  syntax  error  -  if  so 

remove  symbols  from  table  */ 

if  (status  ==  1)  { 

*input_po inter  =  NULL; 

delete_equation (equation_no) ; 

) 

else  { 

/*  install  constraint  as  entity  */ 

itoa (equation_no, ebuf , 10) ; 
strcat (eq, ebuf ) ; 

for(i  =  0;i<80;i++)  { 

if  (  iscntrl  (equation__buf  fer  [  i] )  !=  0)  { 

equation_buf f er [ i ]  =  NULL; 

} 

> 

if  (tail->s_type  !=  END)  { 

install_entity (eq, "t" , "  " , "  ", 

equation_buf fer, "  "); 

) 

eq[3]  =  NULL; 
equation_no++ ; 
line++ ; 

} 


) 

translate_table ( ) ; 
enter_model_descript ion ( ) ; 
build_grules ( ) ; 
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build_inonotone_order  (name)  ; 
write_entity 0 ; 
write_relship 0 ; 
write_module 0  ; 
free_entity_list ( ) ; 
free_relship_list ( ) ; 
free_module_list ( ) ; 
return ; 


CLEAR_LINE 

Function  that  will  clear  text  line.  Line  is  cleared  in 
the  currently  defined  text  window. 

********************************************************/ 

void  clear_line ( line) 

int  line;  /*  line  number  to  be  cleared  */ 

{ 

char  buffer[80]; 

_settextposition(line, 1) ; 
sprintf (buffer, 

fl 

")  ; 

_outtexc (buffer) ; 

} 
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DELETE_EQUATION 

Function  to  remove  excess  symbols  from  the  end  of  the 
symbol  table  when  a  syntax  error  occurs.  The  symbol  table 
is  referenced  by  the  global  head  and  tail  pointers.  The 
symbols  to  be  deleted  will  always  be  the  last  on  the  linked 


********************************************************/ 

void  delete_equation (eqno) 

int  eqno;  /*  equation  number  to  be  deleted  */ 

{ 

Symbol  *  Ip,  /*  temp  pointers  to 

symbol  table  entries  */ 

*  tp; 


/*  no  symbols  on  list  */ 

if  (head  ==  NULL)  { 
return; 

} 

else  { 

/*  equation  is  the  only  entry  on  the  table  */ 
if  (head->equation  ==  eqno)  ( 

/*  set  pointer  to  first  symbol  to  delete  */ 
tp=lp=head ; 

/*  set  head  and  tail  to  empty  list  */ 

head  =  tail  =  NULL; 

/*  free  memory  used  in  symbols  */ 

while (Ip  !=  NULL)  { 

Ip  =  tp->next; 
free ((void  *)tp); 
tp  =  Ip; 

> 
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return ; 

} 

/*  more  than  one  equation  on  the  symbol  table  */ 

else  { 

tp  =  head; 

Ip  =  tp->next; 

while (Ip  !=  NULL)  { 

if (lp->equation  ==  eqno)  { 
tail  =  tp; 

/*  free  memory  used  in  symbols  */ 

while (Ip  !=  NULL)  { 
tp  =  Ip; 

Ip  =  tp->next; 
free ((void  *)tp); 

) 

return ; 


else  { 

tp  =  Ip; 

Ip  =  tp->next; 


} 


) 


) 
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********************************************************* 
TRANS  LATE_TABLE 

Function  to  translate  the  symbol  table  created  by  the 
scanner  to  the  form  needed  for  entry  into  the  relational 
tables  of  ORACLE  RDBMS 

*******************************************************/ 

void  translate_table () 

{ 


Symbol  *lp. 

*tp; 

/* 

int 

i/ 

/* 

length; 

char 

ibuf [2] ; 

/* 

CO 

char 

ebuf [ 3 ] ; 

/* 

char 

eq [ 6 ] ; 

leading  and  trailing  pointers  used  for 
walking  down  the  symbol  table  list  */ 
index  for  counting  */ 

/*  number  of  indices 
in  compound  index  */ 
index  buffer  for  separating 
compound  indices  */ 

temp  buffer  to  hold  equation  name  */ 

/*  text  string  used  to  concatenate 
with  equation  #  for  a  temporary 
variable  name  */ 


/*  initailize  pointers  to  the  begining  of  list  */ 
tp  =  head ; 


if  (head  ==  NULL)  { 

fprintf  (stderr,  "Th',  symbol  table  is  empty  - 
Please  reenter  your  model”) ; 
exit(l) ; 

) 


Ip  =  head->next; 


strcpy (eq, "EQN") ; 

/*  go  through  entire  table  */ 
while(lp  1=  NULL)  { 

switch (tp->s_type)  { 
case  END: 
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{ 

return ; 

} 

case  IDENTIFIER: 

{ 

if  (lp->s_type  ==  INDEX)  { 

length  =  strlen (lp->s_name) ; 
if  (length  >1)  { 

install_relship( ''CALLS”,  tp->s_name,  "a" ,  lp->s_name,  ''ce'')  ; 
install_entity  (lp->s_naine, ''ce'' , ''  , ''  '•)  ; 

/*  break  up  index  */ 

for  (i=0;i<length;i++)  { 

ibuf[0]  =  lp->s_name[ i] ; 
ibuf[l]  =  NULL; 

install_entity  ( ibuf ,  "pe”  , ''  '',ibuf,''  ''); 

install_relship ("CALLS'',  lp->s_naine,  "ce",  ibuf ,  "pe")  ; 

} 


} 

else  { 

install_relship("CALLS",  tp->s_naine,  "a",  lp->s_naine,  "pe")  ; 
install_entity  (lp->s_naine,  "pe"  ,  "  "  ,  lp->s_naine,  "  "  " 


) 

install_entity  ( tp->s_naine ,  "a"  ,  "  ")  ; 

itoa(tp->equation,ebuf , 10) ; 
strcat (eg, ebuf ) ; 
if (tp->equation  ==  0)  { 

instal l_relship( "CALLS ",  eg, "f" , 
tp->s_naine,  "a")  ; 

} 

else  { 

install_relship ( "CALLS" , eg, "t" , 
tp->s_naine,  "a")  ; 

} 


107 


eq[3]  =  NULL; 
tp  =  Ip; 

Ip  =  tp->next; 
break ; 


} 

} 

default: 

{ 

tp  =  Ip; 

Ip  =  lp->next; 
break ; 

} 


} 

} 

return ; 


******************************************************** 

INSTALL_ENTITY 

function  to  install  entity  found  in  LP  model  into 
entity  linked  list.  Creates  list  if  list  is  empty  and 
checks  to  aovid  double  entries 

********************************************************y 

void  install_entity (ename,etype,dname, index, 

index_stmt , grange , grule , comments ) 


char 

ename[20];  /* 

name 

of  entity  */ 

char 

etype[4];  /* 

type 

of  entity  */ 

char 

dname[30];  /* 

descriptive  name  of  entity  */ 

char 

index [8];  /* 

index  set  */ 

char 

index_stmt[50] ; 

/* 

index  statement  */ 

char 

grange [20] ; 

/* 

generic  range  stmt  */ 

char 

grule[80] ; 

/* 

generic  rule  */ 

char 

comments [80 ]  ; 

/* 

informal  interpertation  */ 

{ 


Entity  *  ep, 

*tp; 

/*  temp  pointer  to 
/*  temp  pointer  to 
for  duplicates  */ 

structure  */ 
check 

int  same ; 

/*  return  variable 

from 

strcmpO  0  if  entity 
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is  in  list  */ 


/*  dynamically  allocate  memory  for  structure  */ 

ep  =  (Entity  *)  malloc (sizeof (Entity) ) ; 

/*  assign  values  to  structure  */ 

strcpy (ep->ename, ename) ; 
strcpy (ep->etype,etype) ; 
strcpy (ep->dname,dname) ; 
strcpy (ep->idx, index) ; 
strcpy (ep->idx_stmt, index_stmt) ; 
strcpy (ep->grange, grange) ; 
strcpy (ep->grule,grule) ; 
strcpy (ep->comments, comments) ; 
ep->next  =  NULL; 


/*  is  list  empty  -  add  to  head  */ 

if  (ehead  ==  NULL)  { 

ehead  =  etail  =  ep; 
return ; 


} 

/*  check  list  for  duplicates  */ 

tp  =  ehead; 

while  (tp  !=  NULL)  { 

same  =  strcmp (ename, tp->ename) ; 

if  (same  ==  0)  { 

/*  already  in  list  */ 
free(ep) ; 
return ; 

} 

else 

tp  =  tp->next; 

) 

/*  not  found  -  so  add  to  end  of  list  */ 
etail->next  =  ep; 
etail  =  ep; 
return ; 


} 
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y******************************************************** 


INSTALL_RELSHIP 

installs  relationship  found  in  LP  model  into  relship 
table,  checks  to  see  if  table  is  empty  or  if  the 
relationship  is  already  represented. 

icieit'k'k'kieie'kieic'k'kie'k'k’k'k'k'kiciticieieie'k'kitieic'kic'kicitititit'itit’kiciticie'k'kie'kie’k'kitit'kic'ky 

void  install_relship (rtype, elname, e 1 type, e2 name, e2 type) 


char 

rtype[12] ; 

/* 

type 

of 

char 

elname [20] ; 

/* 

name 

of 

char 

eltype [8] ; 

/* 

type 

of 

char 

e2name[20] ; 

/* 

name 

of 

char 

e2type [ 8 ] ; 

/* 

type 

of 

relationship  */ 
calling  element  */ 
calling  element  */ 
called  element  */ 
deed  element  */ 


{ 


Relship  *  rp, 
*tp; 


/*  temp  pointer  to  structure  */ 
/*  temp  pointer  to  check 
for  duplicates  */ 


int  samel , same2 ;  /*  return  variables  from 

strcmpO  0  if  entity 
is  in  list  */ 


/*  dynamically  allocate  memory  for  structure  */ 
rp  =  (Relship  *)  malloc (sizeof (Relship) ) ; 


/*  assign  values  to  structure  */ 

strcpy (rp->rtype,rtype) ; 
strcpy (rp->elname, elname) ; 
strcpy (rp->eltype, eltype) ; 
strcpy (rp->e2name, e2name) ; 
strcpy (rp->e2type, e2type) ; 
rp->next  =  NULL; 


/*  is  list  empty  -  add  to  head  */ 

if  (rhead  ==  NULL)  { 

rhead  =  rtail  =  rp; 
return ; 

} 


/*  check  list  for  duplicates  */ 

tp  =  rhead; 

while  (tp  !=  NULL)  { 

samel  =  strcmp(elname,tp->elname) ; 
same2  =  strcmp(e2name,tp->e2name) ; 

if  ((samel  ==  0)  &&  (same2  ==  0) )  { 


/*  already  in  list  */ 

free (rp) ; 
return ; 

} 

else 

tp  =  tp->next; 


) 

/*  not  found  -  so  add  to  end  of  list  */ 

rtail->next  =  rp; 
rtail  =  rp; 
return ; 


} 

/******************************************************* 

ENTER_MODEL_DESCRIFTION 

function  to  enter  the  mnemonic  genus  names  into  the 
model  description. 

It*****************************************************/ 

char  *  linel  =  "ENTER  MODEL  DESCRIPTIVE  INFORMATION"; 

char  *  line2  =  "Genus  Name _ Genus  Type _ Mnemonic  Genus 

Name _ Generic  Rule"; 

char  *  line3  =  "Writing  to  ORACLE  RDBMS  table  . "; 

void  enter_model_descri pt ion ( ) 

{ 


Entity  *  ep;  /*  temp  pointer  to  entity 
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int  length, 
begin, 
line  ; 


linked  list  */ 

/*  length  of  centered  msg  */ 

/*  begining  col  of  centered  text  */ 
/*  current  text  line  */ 


char  name [20],  /*  buffer  for  mnemonic  name  */ 

yorn[2];  /*  buffer  for  Yes  or  No  answer  */ 


/*  initialize  text  window  */ 


_setbkcolor (BLACK) ; 
_settextcolor (BRWHITE) ; 
_settextwindow (1,1,25,80)  ; 
_clearscreen (_GWINDOW) ; 
cursor_on ( ) ; 


length  =  strlen ( linel) ; 
begin  =  40  -  (length/2) ; 
_settextcolor (RED) ; 
_settextposition(4 ,begin) ; 
_outtext (linel) ; 

_settextcolor (BRWHITE) ; 
_settextposition (6 , 1)  ; 

_outtext (line2) ; 

box ( 3 , begin-1 , 1 , length) ; 

line  =  7; 
ep  =  ehead; 

/*  put  out  genus  names  */ 

while (ep  !=  NULL)  { 

_settextposition (line, 5) ; 
_outtext (ep->ename) ; 
_settextposition(line,22)  ; 
_outtext (ep->etype) ; 
_settextposition(line, 47)  ; 
_outtext (ep->grule) ; 

line++ ; 

ep  =  ep->next; 


} 

line  =  7; 
ep  =  ehead ; 

/*  accept  mnemonics  */ 
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while (ep  !=  NULL)  { 

_settextposition(line, 30) ; 
gets (name) ; 

/*  check  to  see  if  this  is  a  decision  variable  */ 

if  (strcmp(ep->etype, "a")  ==  0)  { 

_settextposition(line,45) ; 

_outtext ("Decision  variatsle  ?(Y/N)  ")  ; 

gets (yorn) ; 

if  (strcmpi (yorn, "y")  ==  0)  ( 

strcpy (ep->etype, "va") ; 
change_relship_type (ep->ename) ; 

} 

} 

/*  check  to  see  if  new  name  was  entered 
and  replace  if  it  was  */ 

if  (isalnum (name [0] )  1=  0)  { 

/*  name  for  pe  will  include  index  */ 

if  (strcmp (ep->etype, "pe")  ==  0)  { 

strcat (name, ep->ename) ; 

) 

rename_genus_relship ( ep->ename , name ) ; 
change_symbol (ep->ename, name) ; 

/*  replace  with  new  descriptive  name  */ 
strcpy (ep->ename, name) ; 

) 

ep  =  ep->next; 
line++ ; 


length  =  strlen (line3 ) ; 
begin  =  40  -  (length/2) ; 
_settextcolor (BRWHITE) ; 
_settextposition (23 , begin) ; 
_outtext (line3 ) ; 


) 
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/******************************************************** 
RENAME_GENUS_RELSH I P 

checks  through  the  entire  relship  linked  list  to  replace 
oldname  with  the  mnemonic  new  name. 

Icifk-kitifkitifkicitifitititliltifkitititifk*******************************/ 

void  rename_genus_relship (oldname, newname) 

char  *  oldname,  /*  name  of  genus  to  be  renamed  */ 

*  newname;  /*  replacement  mnemonic  name  */ 

{ 

Relship  *  rp;  /*  temp  pointer  into  relship 

linked  list  */ 

int  test;  /*  return  value  from  strcmp  =  0 

if  match  */ 

/*  pointer  to  top  of  list  */ 
rp  =  rhead; 

/*  check  through  all  names  on  the  list  */ 

while  (rp  !=  NULL)  { 

/*  check  calling  element  */ 

test  =  strcmp (rp->elname, oldname) ; 

if (test  ==  0)  { 

strcpy(rp->elname, newname) ; 

) 

/*  chec]:  called  element  */ 

test  =  strcmp (rp->e2name, oldname) ; 

if (test  ==  0)  { 

strcpy (rp->e2name, newname) ; 

} 

rp  =  rp->next; 

) 

) 
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y-k*********************-)!********************************* 

CHANGE_RELSHIP_TYPE 

checks  through  the  entire  relship  linked  list  to  replace 
change  the  entity  type  of  enaine  to  va.  This  is  caled  when  a 
decision  variable  is  identified 

kkkkkkk-kkkk-kkkkklikltkli-klikk-kkkkkk***************************/ 

void  change_relship_type (ename) 

char  *  ename;  /*  name  of  decison  variable  */ 

{ 

Relship  *  rp;  /*  temp  pointer  into  relship 

linked  list  */ 

/*  pointer  to  top  of  list  */ 
rp  =  rhead ; 

/*  check  through  all  names  on  the  list  */ 
while  (rp  !=  NULL)  { 

/*  check  calling  element  */ 

if (strcmp(ename, rp->elname)  ==  0)  { 

strcpy (rp->eltype, "va") ; 

I 

/*  check  called  element  */ 

if (strcmp(ename, rp->e2name)  ==  0)  | 

strcpy (rp->e2 type, "va") ; 

} 

rp  =  rp->next; 

) 
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/***************************************************** 

FREE_ENTITY_LIST 

frees  dynamic  memory  used  by  entity  linked  list 

ic***************************'^************************^ 

void  f ree_entity_list ( ) 

{ 

Entity  *lp, 

*tp; 

tp  =  ehead; 

Ip  =  tp->next; 

ehead  =  NULL; 

while  (Ip  NULL)  { 

free (tp)  ; 
tp  =  Ip; 

Ip  =  tp->next; 

) 

free ( tp) ; 

} 

y******************************************************** 

FREE_RELSHIP_LIST 

frees  dynamic  memory  used  by  relship  linked  list 

***i!*is-k*****-k-k-k-k-k******it1t*1i*-k*1c****-k***1tit********-kic*-k-kic**y 

void  f ree_relship_list ( ) 

{ 


Relship  *lp, 

*tp  ; 

tp  =  rhead; 

Ip  =  tp->next; 

rhead  =  NULL; 

while  (Ip  !=  NULL)  ( 
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free (tp)  ; 
tp  =  Ip; 

Ip  =  tp->next; 

} 

free (tp) ; 

} 

y********************************************************* 

FREE_MODULE_LIST 

frees  dynamic  memory  used  by  module  linked  list 
***********************************■»:*********************/ 

void  free_module_list 0 
{ 

Module  *lp, 

*tp; 

tp  =  mhead ; 

Ip  =  tp->next; 

ehead  =  NULL; 

while  (Ip  !=  NULL)  { 

free ( tp) ; 
tp  =  Ip; 

Ip  =  tp->next; 

free(tp) ; 

) 

FREE_POSITION_LIST 

frees  dynamic  memory  used  by  position  linked  list 

***k***k*-k-k-k-k-k1t*-k-k-k-k**********************1(***k*********y 

void  free_position_list ( ) 

{ 
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Position  *lp, 

*tp; 

tp  =  phead; 

Ip  =  tp->next; 

phead  =  NULL; 

while  (Ip  !=  NULL)  { 

free(tp) ; 
tp  =  Ip; 

Ip  =  tp->next; 

} 

free(tp) ; 

} 

y-k*-k*******-k-k**-k-k*****-k*1c***1e*****ic*1fk'k*******-k*********** 

BUI LD_MONOTONE_ORDER 

provides  the  modular  structure  in  monotone  order  - 
insuring  no  forward  references.  Calls  write_modular  to  enter 
into  ORACLE  relship  table 

void  build_monotone_order (name) 

char  name  [20];  /*  model  name  */ 


Relship  *rp;  /*  pointer  to  relship  linked  list  */ 

Module  *mp;  /*  pointer  to  module  linked  list  */ 

int  rel_pos  =1;  /*  relative  position  in 

the  order  */ 


/*  install  all  pe  on  level  1  */ 
rp  =  rhead ; 


while  (rp  !=  NULL)  { 

if  (strcmp(rp->e2type, "pe”)  ==  0)  { 

install_module ( "CONTAINS" , name , "model " , 
rp->e2name, rp->e2type, reljpos) ; 
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rel_pos++ ; 

) 

rp  =  rp->next; 

} 

/*  initialize  pointers  to  begining  of  lists  */ 

rp  =  rhead; 
mp  =  mhead; 


while  (mp  !=  NULL)  { 

/*  check  for  all  elements  that  call  those  on  the 
list  */ 

while (rp  !=  NULL)  { 

if  (strcmp (mp->e2name, rp->e2name)  ==  0)  { 

install_module ("CONTAINS" ,name, "model" , 
rp->elname, rp->eltype, rel_pos) ; 
rel_pos4-+ ; 

} 

rp  =  rp->next; 


mp  =  mp->next; 
rp  =  rhead; 


y********************************************************** 

INSTALL_MODULE 

This  function  places  each  module  found  in  into  the 
module  linked  list.  If  the  element  is  already  on  the 
list  in  the  same  display  level  it  will  not  be  added.  If  it 
is  already  on  the  list  on  a  lower  display  level  the  lower 
level  is  converted  to  a  place  holder  to  allow  the  arc  to 
span  levels 

********************************************************y 

void 

install_module ( rtype , elname , eltype , e2name , e2type , rel_pos ) 
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char  rtype [ 12  ]  ; 
char  elnaine[20]  ; 
char  eltype[12]; 
char  e2naine[20]; 
char  e2type[12]; 

int  rel_pos;  /* 

{ 

Module  *inp;  /* 

Module  *tp; 


/*  typ®  of  relationship  */ 

/*  name  of  calling  element  */ 

/*  type  of  calling  element  */ 

/*  name  of  called  element  */ 

/*  type  of  called  element  */ 
relative  position  in  the  order  */ 


temp  pointer  to  new  structure  */ 
/*  temp  pointer  to  linked  list 
used  to  check  if  element  is 
already  in  list  */ 


/*  create  new  structure  */ 

mp  =  (Module  *)  malloc  (sizeof (Module) ) ; 

strcpy (mp->rtype, rtype) ; 
strcpy (mp->elname,elname) ; 
strcpy (mp->eltype,eltype) ; 
strcpy (mp->e2name, e2name) ; 
strcpy (mp->e2type,e2type) ; 
mp->rel_pos  =  rel_pos; 
mp->next  =  NULL; 


/*  is  list  empty  -  add  to  head  */ 

if  (mhead  ==  NULL)  { 

mhead  =  mtail  =  mp; 
return ; 

} 

/*  check  list  for  to  see  if  the  element  is  there  already 
if  it  is  there  is  a  forward  reference  and  we  need  to 

change  the  rel_pos  of  the  element  on  the  list  */ 

tp  =  mhead; 

while  (tp  !=  NULL)  { 


if  (strcmp(e2name,tp->e2name)  ==  0)  { 
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/*  already  in  list  -  change  the  rel_pos  to 
eliminate  forward  reference  */ 

tp->rel_pos  =  rel_pos; 
free(mp) ; 
return ; 


else 

tp  =  tp->next; 


} 

/*  not  found  -  so  add  to  end  of  list  */ 

mtail->next  =  mp; 
mtail  =  mp; 
return ; 


/********************************************************* 

CHANGE_SYMBOL 

This  function  will  change  the  mathematical  symbol  in 
the  symbol  table  to  the  new  descriptive  name  entered. 
This  will  allow  us  to  construct  a  generic  rule  using 
the  descriptive  names 

*********************************************************/ 

void  change_symbol (oldname , newname) 

char  oldname[20],  /*  mathematical  symbol  name  */ 
newname[20];  /*  new  descriptive  name  */ 


Symbol  *  sp;  /*  temp  pointer  to  symbol 

table  list  */ 

sp  =  head ; 

while  (sp  !=  NULL)  { 

if  (sp->s_type  ==  IDENTIFIER)  { 

if (strcmp(sp->s_name, oldname)  ==  0)  { 

strcpy(sp->s_name, newname) ; 

> 
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} 


sp  =  sp->next; 


> 


BUILD_GRULES 

This  function  will  concatenate  the  generic  rule 
from  the  symbol  table  after  the  descriptive  names 
have  been  entered. 

********  ************************************************/ 

void  build_grules 0 


Symbol  *sp;  /*  temp  pointer  to  symbol  table  */ 

int  equation  =0;  /*  counter  for  the  equation  number  */ 

char  grule_buf [80] ;  /*  temp  buffer  for  grule  */ 

sp  =  head; 

grule_buf[0]  =  NULL; 

while (sp->s_type  !=  END)  { 

if  (sp->equation  ==  equation)  { 

strcat (grule_buf , sp->s_name) ; 

} 

else  { 

insert_grule (grule_buf , equation) ; 
grule_buf[0]  =  NULL; 
strcat (grule_buf, sp->s_name) ; 
equation  ++; 

} 

sp  =  sp->next; 

} 

insert_grule (grule_buf, equation) ; 


INSERT_GRULE 

Function  to  insert  the  new  descriptive  generic  rule 
into  the  entity  linked  list.  The  rule  is  inserted 
into  the  function  of  test  element  that  corresponds 
to  the  number  equation.  Note:  This  function  relies 
on  the  fact  that  the  the  f  and  t  entities  are  inserted 
in  the  order  the  are  entered  as  mathematical  equations. 

■k1cifk*'k1e1fk'k1fk'k-k1fk1e-kic1t1t1t1(1fk1fk‘k1fk1c1t‘k1fk1t1c1c‘k1i1c'k'k'k1t1c1c‘k1e1e1fk‘k1t1e1t1c1c'ky 


void  insert_grule (grule, eq_no) 

char  grule[80];  /*  descriptive  grule  to  enter  */ 

int  eq_no;  /*  corresponding  equation  number  */ 


Entity  *ep;  /*  temp  pointer  to  entity  linked  list 

*/ 

int  count  =0,  /*  count  of  the  f  or  t  entity  found  */ 
ftest,  /*  return  variables  from  strcmp  test  */ 

ttest ; 

ep  =  ehead; 

while (ep  !=  NULL)  { 

ttest  =  strcmp (ep->etype, "t") ; 
ftest  =  strcmp(ep->etype, ”f") ; 

if  (ftest  ==  0  I  I  ttest  ==  0)  { 

if  (count  ==  eq_no)  { 

strcpy (ep->grule, grule) ; 
return ; 

} 

count++ ; 

} 

ep  =  ep->next; 

) 

} 
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^’kic'k'kit'kii'kic'k'kic'k'k'kic'k'k'kit'k'k'kifkititit'kiticie'kic'k'kitif'kicit'kifk'kit'k'k’k'kitic'k’kic 

DATE:  1  Jan  89  -  dsh 

FILE:  oracle_r.pc 

CONTENTS:  function  to  read  from  the  ORACLE  database. 

This  is  the  C  version.  This  file  must  be  precompiled  with 
the  PRO*C  precompiler  before  compliling  with  the  other 
files.  This  precompilitation  is  automatically  done  by  using 
MAKE. 

itititleitititltleifkifkicltlfkitlclfkltltlfklfklfkitlfkifk-klfkiclcltie'klfkifklfklfk'kisiclfk-k'ky 

#include  "symbol. h” 

#include  <stdio.h> 


/*  fuction  prototypes  */ 

int  readentity (void) ; 
int  read_relship (void) ; 
void  delete_from_relship (void) ; 
void  delete_from_entity (void) ; 


extern  Entity  *  ehead; 

extern  Relship  *  rhead; 


EXEC  SQL  BEGIN  DECLARE  SECTION; 


VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 


Uid[20] ; 
pwd [20] ; 
ename[20] ; 
etype[12]  ; 
dname[20]  ; 
idx [4]; 
idx_stmt [50] ; 
grange [20] ; 
grule [ 80 ] ; 
comments [80]  ; 


VARCHAR 

V/J^CHAR 

VARCHAR 

VARCHAR 

VARCHAR 


rtype [ 8 ]  ; 
elname[20]  ; 
eltype[12]  ; 
e2name[20]  ; 
e2type [ 12  ]  ; 


EXEC  SQL  END  DECLARE  SECTION; 
EXEC  SQL  INCLUDE  SQLCA; 
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READ_SCHEMA 

Function  to  read  the  global  entity  linked 
list  from  the  corresponding  ORACLE  RDBMS  tables.  Assumes 
predefined  table  and  user:  dsh  password:  thesis 

*********-k*************************************ii*********y 


int  read_schema ( ) 

{ 

/*  login  to  oracle  */ 


strcpy (uid.arr, "dsh") ; 
uid.len  =  strlen(uid.arr) ; 
strcpy (pwd. arr, "thesis")  ; 
pwd.len  =  strlen (pwd. arr) ; 


EXEC  SQL  WHENEVER  ERROR  GOTO  errpt; 

EXEC  SQL  CONNECT  :uid  IDENTIFIED  BY  :pwd; 

EXEC  SQL  DECLARE  Cl  CURSOR  FOR 
SELECT 

ENAME , ETYPE , DNAME , IDX , I DX_STMT, GRANGE , GRULE , COMMENTS 

FROM  ENTITY, CONTAINZ  WHERE  ENTITY. ENAME  =  CONTAINZ . E2NAME 
ORDER  BY  REL  POS ; 


EXEC  SQL  OPEN  Cl; 


EXEC  SQL  WHENEVER  NOT  FOUND  GOTO  finish; 
for( ; ; )  { 

EXEC  SQL  FETCH  Cl  INTO 
: ename , : etype , ; dname , : idx , : idx_stmt , 

: grange, :grule, : comments; 

/*  string  is  returned  without  so 
NULL  we  need  to  add  it  */ 

ename. arr [ename. len]  =  NULL; 
etype. arr [ etype. len]  =  NULL; 
dname. arr [dname. len]  =  NULL; 
idx. arr [ idx. len]  =  NULL; 
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idx_stint.arr[idx_stint.len]  =  NULL; 
grange. arr[ grange. len]  =  NULL; 
grule. arr [grule. len]  =  NULL; 
comments. arr[ comments. len]  =  NULL; 

ins ta 1 l_ent i ty ( ename . arr , etype . arr , dname . arr , idx . arr , 
idx_stmt . arr , grange . arr , grule . arr , comments . arr) ; 


) 

finish: 

EXEC  SQL  CLOSE  Cl; 

EXEC  SQL  WHENEVER  SQLERROR  CONTINUE; 

EXEC  SQL  COMMIT  WORK  RELEASE; 
return ; 
errpt : 

printf ( "\n% . 70s  \n" , sqlca. sqlerrm. sqlerrmc) ; 
EXEC  SQL  ROLLBACK  WORK  RELEASE; 
return ; 


y*********************************************************** 


READ_RELSHIP 

Function  to  read  the  global  relship  linked 
list  from  the  corresponding  ORACLE  RDBMS  tables.  Assumes 
predefined  table  and  user:  dsh  password:  thesis 

********************************************************/ 
int  read_relship ( ) 

{ 

/*  login  to  oracle  */ 


strcpy (uid. arr , "dsh" ) ; 
uid.len  =  strlen(uid.arr); 
strcpy (pwd. arr, "thesis”) ; 
pwd.len  =  strlen(pwd.arr) ; 

EXEC  SQL  WHENEVER  SQLERROR  goto  errpt; 
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EXEC  SQL  CONNECT  :uid  IDENTIFIED  BY  :pwd; 

/*  this  could  be  ordered  by  rel_pos  ??  */ 

EXEC  SQL  DECLARE  C2  CURSOR  FOR 

SELECT  ElNAME,ElTYPE,E2NAME,E2TyPE 
FROM  CALLS  ORDER  BY  E2NAME, EINAME ; 

EXEC  SQL  OPEN  C2 ; 

EXEC  SQL  WHENEVER  NOT  FOUND  GOTO  finish; 
for  (;;)  { 

EXEC  SQL  FETCH  C2  INTO  ; elname,  : eltype ,  : e2naine ,  : e2type ; 
/*  string  is  returned  without  so  NULL  we  need  to  add  it 

*/ 


elname.  arr[elnaitie.  len]  =  NULL; 
eltype. arr[ eltype. len]  =  NULL; 
e2name .  arr  [;e2name .  len]  =  NULL; 
e2type. arr [e2type. len]  =  NULL; 

install_relship ( "CALLS " , elname. arr , 

eltype . arr , e2name . arr , e2type . arr) ; 


) 

finish : 

EXEC  SQL  CLOSE  C2 ; 

EXEC  SQL  WHENEVER  SQLERROR  CONTINUE; 

EXEC  SQL  COMMIT  WORK  RELEASE; 

return ; 

errpt : 

printf ( "\n% . 70s  \n" , sqlca . sqlerrm. sqlerrmc) ; 
EXEC  SQL  ROLLBACK  WORK  RELEASE; 
return ; 


) 
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/*********************************************************** 

DELETE_FROM_RELSHIP 

Function  to  delete  the  ORACLE  RDBMS  relship  table. 

Assumes  predefined  table  and  user:  dsh  password:  thesis 

*****************************★***************************/ 

void  delete_from_relship ( ) 

{ 

/*  login  to  oracle  */ 


strcpy (uid. arr, "dsh" ) ; 
uid.len  =  strlen (uid . arr) ; 
strcpy (pwd. arr , "thesis" ) ; 
pwd.len  =  strlen (pwd. arr) ; 

EXEC  SQL  WHENEVER  SQLERROR  goto  errpt; 

EXEC  SQL  CONNECT  :uid  IDENTIFIED  BY  : pwd ; 

EXEC  SQL  DELETE  FROM  RELSHIP; 


finish: 

EXEC  SQL  WHENEVER  SQLERROR  CONTINUF; 

EXEC  SQL  COMMIT  WORK  RELEASE; 
return ; 
errpt : 

printf ( "\n% . 70s  \n" , sqlca . sglerrra. sqlerrmc) ; 
EXEC  SQL  ROLLBACK  WORK  RELEASE; 
return ; 


} 
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y*********************************************************** 

DELETE_FROM_ENTITY 

Function  to  delete  the  ORACLE  RDBMS  entity  table. 

Assumes  predefined  table  and  user:  dsh  password:  thesis 

******************************11**************************^ 

void  delete_from_entity ( ) 

{ 

/*  login  to  oracle  */ 

strcpy (uid. arr , "dsh" ) ; 
uid.len  =  strlen (uid . arr) ; 
strcpy (pwd. arr, "thesis") ; 
pwd.len  =  strlen (pwd. arr) ; 

EXEC  SQL  WHENEVER  SQLERROR  goto  errpt; 

EXEC  SQL  CONNECT  :uid  IDENTIFIED  BY  :pwd; 

EXEC  SQL  DELETE  FROM  ENTITY; 


finish: 

EXEC  SQL  WHENEVER  SQLERROR  CONTINUE; 
EXEC  SQL  COMMIT  WORK  RELEASE; 


return ; 


errpt : 

printf ( "\n% . 70s  \n" , sqlca . sqlerrm. sqlerrmc) ; 
EXEC  SQL  ROLLBACK  WORK  RELEASE; 
return ; 


} 
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/Ik******************************************************** 

DATE:  10  Jan  89  -  dsh 

FILE:  oracle_w.pc 

CONTENTS:  function  to  write  to  the  ORACLE  database.  This 

isthe  C  version.  This  file  roust  be  precompiled  with  the 
PR0*C  precompiler  before  compliling  with  the  other  files. 
This  precoropilitation  is  automatically  done  by  using  MAKE. 

*********************************************************/ 

# include  "symbol. h" 

#include  <stdio.H> 


/*  fuction  prototypes  */ 

int  write_entity (void) ; 
int  write_relship (void) ; 
int  write_module (void) ; 

extern  Entity  *  ehead; 

extern  Relship  *  rhead; 

extern  Module  *  mhead; 


EXEC  SQL  BEGIN  DECLARE  SECTION; 


VARCHAR  uid[20]; 

VARCHAR  pwd[20]; 

VARCHAR  ename [20]; 

VARCHAR  e t ype [ 1 2 ] ; 

VARCHAR  dname [20]; 

VARCHAR  idx[4]; 

VARCHAR  idx_stmt [ 50 ] ; 

VARCHAR  grange [20]; 

VARCHAR  grule[80]; 

VARCHAR  comments [ 80 ] ; 


VARCHAR  rtype [ 12 ] ; 

VARCHAR  elname[20]; 

VARCHAR  e 1 ty pe [12]; 

VARCHAR  e2name[20]; 

VARCHAR  e  2 1 ype [ 1 2 ] ; 

int  rel_pos; 


EXEC  SQL  END  DECLARE  SECTION; 
EXEC  SQL  INCLUDE  SQLCA ; 
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WRITE_ENTITY 

Function  to  load  the  global  entity  linked 
list  into  the  corresponding  ORACLE  RDBMS  tables.  Assumes 
predefined  table  and  user:  dsh  password:  thesis 

********************************************************/ 


int  write_entity 0 
{ 

Entity  *  ep;  /*  temp  pointer  to  linked  list  */ 

/*  login  to  oracle  */ 


strcpy (uid.arr, "dsh") ; 
uid.len  =  strlen (uid. arr) ; 
strcpy(pwd.arr, "thesis")  ; 
pwd.len  =  strlen (pwd. arr) ; 

EXEC  SQL  WHENEVER  ERROR  GOTO  errpt; 

EXEC  SQL  CONNECT  :uid  IDENTIFIED  BY  :pwd; 

ep  =  ehead; 

while  (ep  !=  NULL)  { 


strcpy  (enaine.arr,ep->ename)  ; 
ename.len  =  strlen (ename. arr) ; 

strcpy (etype . arr , ep->etype) ; 
etype.len  =  strlen(etype.arr) ; 

strcpy (dname . arr , ep->dname) ; 
dname.len  =  strlen (dname. arr) ; 

strcpy (idx. arr, ep->idx) ; 
idx.len  =  strlen(idx.arr) ; 

strcpy ( idx_stmt . arr, ep->idx_stmt) ; 
idx_stmt.len  =  strlen(idx_stmt.arr); 

strcpy (grange. arr, ep->grange) ; 
grange. len  =  strlen(grange.arr) ; 
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strcpy (grule.arr,ep->grule) ; 
grule.len  =  strlen(grule.arr) ; 

strcpy ( comments . arr , ep->comments) ; 
comments. len  =  strlen (comments. arr) ; 

EXEC  SQL  INSERT  INTO  ENTITY 
( ename , etype , dname , idx , idx_stmt , grange , grule , comments ) 
VALUES ( : ename , : etype , : dname , : idx , 

:idx_stmt, : grange, : grule, : comments) ; 

EXEC  SQL  COMMIT  WORK; 

ep  =  ep->next; 

} 

EXEC  SQL  COMMIT  WORK  RELEASE; 
return ; 
errpt : 

printf ("\n% . 70s  \n" , sqlca . sqlerrm. sqlerrmc) ; 

EXEC  SQL  ROLLBACK  WORK  RELEASE; 
return ; 


} 

^ifit'kic'k'kitif'k'k'k'kitit'k'k’k’k'k'k’k'k'k'k'kit’k'k'kit'k'kit'k'k'k'k'k'k'k'k'k'k'k'k'k'k'kic'k'k'kit'k'k'k'k'k^ 


WRITE_RELSHIP 

Function  to  load  the  global  relship  linked 
list  into  the  corresponding  ORACLE  RDBMS  tables.  Assumes 
predefined  table  and  user:  dsh  password:  thesis 

**********************************************************y 


int  write_relship 0 

{ 

Relship  *  rp; 

/*  login  to  oracle  */ 


strcpy (uid. arr, "dsh") ; 
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uid.len  =  strlen(uid.arr) ; 
strcpy (pwd. arr, "thesis" ) ; 
pwd.len  =  strlen(pwd.arr) ; 

EXEC  SQL  WHENEVER  ERROR  GOTO  errpt; 

EXEC  SQL  CONNECT  :uid  IDENTIFIED  BY  :pwd; 
rp  =  rhead; 

while  (rp  !=  NULL)  { 


strcpy (rtype. arr , rp->rtype) ; 
rtype.len  =  strlen (rtype. arr) ; 

strcpy (elname. arr, rp->elnaine)  ; 
elname.len  =  strlen (elname. arr) ; 

strcpy (eltype. arr, rp->eltype) ; 
eltype.len  =  strlen(eltype.arr); 

strcpy (e2name. arr, rp->e2name) ; 
e2name.len  =  strlen (e2name. arr) ; 

strcpy (e2 type. arr , rp->e2 type) ; 
e2type.len  =  strlen (e2type. arr) ; 


EXEC  SQL  INSERT  INTO  RELSHIP 
( rtype , elname , eltype , e2name , e2type) 

VALUES ( : rtype, : elname, : eltype, :e2name, :e2type) ; 

EXEC  SQL  COMMIT  WORK; 

rp  =  rp->next; 

) 

EXEC  SQL  COMMIT  WORK  RELEASE; 

return ; 

errpt: 

printf ( "\n% . 70s  \n",sqlca.sqlerrm.sqlerrmc) ; 

EXEC  SQL  ROLLBACK  WORK  RELEASE 7 
return ; 
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WRITE_MODULE 

Function  to  load  the  global  module  linked 
list  into  the  relship  ORACLE  RDBMS  table.  Assumes 
predefined  table  and  user:  dsh  password:  thesis 

*********************************************************/ 


int  write_module ( ) 

{ 

Module  *  mp;  /*  pointer  to  the  module  linked  list  */ 


/*  login  to  oracle  */ 


strcpy (uid.arr, "dsh") ; 
uid.len  =  strlen(uid.arr); 
strcpy (pwd. arr, "thesis")  ; 
pwd.len  =  strlen (pwd. arr) ; 

EXEC  SQL  WHENEVER  ERROR  GOTO  errpt; 

EXEC  SQL  CONNECT  :uid  IDENTIFIED  BY  :pwd? 

mp  =  mhead; 

while  (mp  !=  NULL)  { 

strcpy (rtype. arr, mp->rtype) ; 
rtype.len  =  strlen(rtype.arr) ; 

strcpy (elname. arr ,mp->elname) ; 
elname.len  =  strlen (elname. arr) ; 

strcpy (eltype. arr ,mp->eltype) ; 
eltype.len  =  strlen (eltype. arr) ; 

strcpy (e2name. arr ,mp->e2name) ; 
e2name.len  =  strlen (e2name. arr) ; 

strcpy (e2 type. arr, mp->e2type) ; 
e2type.len  =  strlen (e2 type. arr) ; 

rel_pos  =  mp->rel_pos; 


134 


EXEC  SQL  INSERT  INTO  RELSHIP 
( rtype ,  elname ,  eltype ,  e2na]Jie ,  e2type ,  rel_pos) 

VALUES  ( :rtype,  :elnan\e,  :eltype,  :e2naine,  :e2type,  :rel_pos)  ; 

EXEC  SQL  COMMIT  WORK; 

mp  =  inp->next; 

) 

EXEC  SQL  COMMIT  WORK  RELEASE; 
return ; 
errpt : 

printf ("\n% . 70s  \n" , sqlca . sqlerrm. sqlerrmc) ; 

EXEC  SQL  ROLLBACK  WORK  RELEASE; 
return ; 
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